Lines Matching full:foo*
14 @ARGV = qw(-Foo -baR --foo bar);
17 print "ok 1\n" if GetOptions (\%lnk, "foo", "Foo=s");
18 print ((defined $lnk{foo}) ? "" : "not ", "ok 2\n");
19 print (($lnk{foo} == 1) ? "" : "not ", "ok 3\n");
20 print ((defined $lnk{Foo}) ? "" : "not ", "ok 4\n");
21 print (($lnk{Foo} eq "-baR") ? "" : "not ", "ok 5\n");
26 @ARGV = qw(-Foo -baR --foo bar);
29 my $foo;
30 print "ok 9\n" if GetOptions (\%lnk, "foo" => \$foo, "Foo=s");
31 print ((defined $foo) ? "" : "not ", "ok 10\n");
32 print (($foo == 1) ? "" : "not ", "ok 11\n");
33 print ((defined $lnk{Foo}) ? "" : "not ", "ok 12\n");
34 print (($lnk{Foo} eq "-baR") ? "" : "not ", "ok 13\n");
37 print (!(exists $lnk{foo}) ? "" : "not ", "ok 16\n");