Lines Matching refs:result
21 my $result = shift ;
23 print "not " unless $result ;
336 my %result = () ;
346 $result{$name} = "$name - $count: [@kept]" ;
358 ok(43, $result{"store key"} eq "store key - 1: [fred]");
359 ok(44, $result{"store value"} eq "store value - 1: [joe]");
360 ok(45, !defined $result{"fetch key"} );
361 ok(46, !defined $result{"fetch value"} );
365 ok(49, $result{"store key"} eq "store key - 1: [fred]");
366 ok(50, $result{"store value"} eq "store value - 1: [joe]");
367 ok(51, $result{"fetch key"} eq "fetch key - 1: [fred]");
368 ok(52, ! defined $result{"fetch value"} );
372 ok(54, $result{"store key"} eq "store key - 2: [fred jim]");
373 ok(55, $result{"store value"} eq "store value - 2: [joe john]");
374 ok(56, $result{"fetch key"} eq "fetch key - 1: [fred]");
375 ok(57, ! defined $result{"fetch value"} );
379 ok(60, $result{"store key"} eq "store key - 3: [fred jim fred]");
380 ok(61, $result{"store value"} eq "store value - 2: [joe john]");
381 ok(62, $result{"fetch key"} eq "fetch key - 1: [fred]");
382 ok(63, $result{"fetch value"} eq "fetch value - 1: [joe]");