-warning_is { $ret = GetMarcBiblio() }
- { carped => 'GetMarcBiblio called without parameters'},
- "GetMarcBiblio returns carped warning on no parameters";
-
-warning_is { $ret = GetMarcBiblio({ biblionumber => undef }) }
- { carped => 'GetMarcBiblio called with undefined biblionumber'},
- "GetMarcBiblio returns carped warning on undef biblionumber";
-
-ok( !defined $ret, 'GetMarcBiblio returns undef if not passed a biblionumber');