Searched refs:FakeDB (Results 1 - 1 of 1) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A DDB.t101 my $fdb = FakeDB->new();
274 my $db = FakeDB->new();
297 my $db = FakeDB->new();
368 my $db = FakeDB->new();
403 my $db = FakeDB->new();
445 my $db = FakeDB->new();
484 ok( DB::register( FakeDB->new() ), 'DB::register() should work' );
485 DB::register( FakeDB->new() ) for ( 1 .. 2);
488 is( $FakeDB::output, '123123123',
499 package FakeDB; package
[all...]

Completed in 20 milliseconds