| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Simple/t/ |
| H A D | undef.t | 25 isnt( undef, 'foo', 'undef isnt foo');
37 eq_hash ( { foo => undef, bar => undef },
38 { foo => undef, bar => 23 } );
45 eq_hash ( { foo => undef, bar => { baz => undef, moo => 23 } },
46 { foo => undef, bar => { baz => undef, moo => 23 } } );
|
| H A D | use_ok.t | 14 package Foo::one; package
20 package Foo::two; package
27 package Foo::three; package
33 package Foo::four; package
35 ::use_ok("constant", qw(foo bar));
36 ::ok( defined &foo, 'constant' );
|
| H A D | useing.t | 15 package Foo;
17 can_ok('Foo', qw(ok is can_ok));
18 ok( !Foo->can('like'), 'import working properly' );
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/ |
| H A D | Simple.pm | 31 ok( $foo eq $bar, 'foo is bar' );
61 ok( $foo eq $bar, $name );
62 ok( $foo eq $bar );
64 ok() is given an expression (in this case C<$foo eq $bar>). If it's
|
| H A D | Tutorial.pod | 242 is( @foo, 5, 'foo has 5 elements' );
525 =head1 FOOTNOTES
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
| H A D | Test.pm | 78 $foo, $bar # arguments just like for ok(...)
82 $foo, $bar # arguments just like for ok(...)
95 multiple test files, to test the "foo", "bar", and "baz" feature sets,
96 then feel free to call your files F<t/foo.t>, F<t/bar.t>, and
251 ok( $foo =~ /bar/ ); # ok if $foo contains 'bar'
264 C<sub {...}> syntax or C<\&foo> syntax). In
301 that I<looks like> a regex (e.g., C<'/foo/'>), then
464 skip($if_MSWin, thing($foo), thing($bar) );
472 skip($unless_MSWin, thing($foo), thin
[all...] |
| H A D | UNIVERSAL.pm | 85 $yes = isa "Foo", "Bar";
|
| H A D | abbrev.pl | 2 ;# %foo = ();
3 ;# &abbrev(*foo,LIST);
5 ;# $long = $foo{$short};
|
| H A D | attributes.pm | 100 sub foo : method ;
105 my @attrlist = attributes::get(\&foo);
108 my @attrlist = get \&foo;
119 use attributes __PACKAGE__, \&foo, 'method';
157 letters that's not a built-in attribute (such as "foo") will result in
302 switch(10,foo(7,3)) : expensive
309 switch(10,foo() # ()-string not balanced
313 foo + bar # "+" neither a colon nor whitespace
369 sub foo : locked ;
373 use attributes X => \&foo, "locke
[all...] |
| H A D | autouse.t | 19 "autouse"->import('List::Util' => 'Foo::min');
|
| H A D | base.pm | 174 use base qw(Foo Bar);
183 require Foo;
185 push @ISA, qw(Foo Bar);
|
| H A D | bigint.pm | 273 The following would first try to find Math::BigInt::Foo, then
276 use bigint lib => 'Foo,Math::BigInt::Bar';
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Text/ |
| H A D | Abbrev.pm | 39 # abbrev \%foo, LIST;
41 # $long = $foo{$short};
|
| H A D | ParseWords.t | 13 @words = shellwords(qq(foo "bar quiz" zoo));
14 print "not " if $words[0] ne 'foo';
26 @words = quotewords(':+', 1, 'foo:::"bar:foo":zoo zoo:');
27 print "not " unless join(";", @words) eq qq(foo;"bar:foo";zoo zoo;);
61 $string = 'foo bar baz"bach blech boop';
84 $result = join('|', parse_line(':', 0, 'foo::0:"":::'));
85 print "not " unless ($result eq 'foo||0||||');
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Text/Balanced/t/ |
| H A D | extcbk.t | 63 (Foo(')'));
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Text/TabsWrap/t/ |
| H A D | tabs.t | 84 foobar IN A 140.174.82.12
87 foobar IN A 140.174.82.12
|
| H A D | wrap.t | 213 print ((wrap("verylongindent", "", "foo") eq "verylongindent\nfoo") ? "ok $tn\n" : "not ok $tn");
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/Array/ |
| H A D | std.t | 10 tie @foo,Tie::StdArray;
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/ |
| H A D | File.pm | 25 # transform '-foo' keys into 'foo' keys
|
| H A D | RefHash.pm | 42 $e = sub { 'foo' };
44 $a->[0] = 'foo';
45 $b->{foo} = 'bar';
|
| H A D | RefHash.t | 31 my $ox = Boustrophedon->new("foobar");
105 test(not exists $h{"foobarraboof"});
248 # Tests on the existence of the element 'foo'
249 my $FOO_TESTS = <<'END'
250 defined $h{foo};
251 exists $h{foo};
252 $h{foo};
256 # Test storing and deleting 'foo'
259 $FOO_TESTS;
260 \$h{foo}
[all...] |
| H A D | Scalar.t | 15 sub new { 'Fooled you.' }
48 my $scalar = 'foo';
65 is( tie( my $foo, 'TieTest'), 'Fooled you.', 'delegated to new()' );
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/base/t/ |
| H A D | base.t | 11 use vars qw($Foo);
|
| H A D | fields-base.t | 69 package Foo::Bar; package
72 package Foo::Bar::Baz; package
73 use base 'Foo::Bar';
74 use fields qw(foo bar baz);
131 'Foo::Bar' => [qw(b1 b2 b3)],
132 'Foo::Bar::Baz' => [qw(b1 b2 b3 foo bar baz)],
|
| H A D | fields.t | 14 package Foo; package
24 is_deeply( [sort keys %Foo::FIELDS],
36 is_deeply( [sort &show_fields('Foo', fields::PUBLIC)],
38 is_deeply( [sort &show_fields('Foo', fields::PRIVATE)],
42 eval q(my Foo $obj = Foo->new; $obj->{notthere} = "");
50 foreach (Foo->new) {
51 my Foo $obj = $_;
82 package Foo::Autoviv; package
83 use fields qw(foo ba
[all...] |