/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/bignum/t/ |
H A D | bigrat.t | 21 my $x = 5; ok (ref($x) =~ /^Math::BigInt/); # :constant 23 # todo: ok (2 + 2.5,4.5); # should still work 24 # todo: $x = 2 + 3.5; ok (ref($x),'Math::BigFloat'); 26 $x = 2 ** 255; ok (ref($x) =~ /^Math::BigInt/); 29 ok (1/3, '1/3'); 30 ok (1/4+1/3,'7/12'); 31 ok (5/7+3/7,'8/7'); 33 ok (3/7+1,'10/7'); 34 ok (3/7+1.1,'107/70'); 35 ok ( [all...] |
H A D | bignum.t | 21 my $x = 5; ok (ref($x) =~ /^Math::BigInt/); # :constant 23 ok (2 + 2.5,4.5); 24 $x = 2 + 3.5; ok (ref($x),'Math::BigFloat'); 25 ok (2 * 2.1,4.2); 26 $x = 2 + 2.1; ok (ref($x),'Math::BigFloat'); 28 $x = 2 ** 255; ok (ref($x) =~ /^Math::BigInt/); 31 ok (Math::BigInt::bsqrt('12'),'3.464101615137754587054892683011744733886'); 32 ok (sqrt(12),'3.464101615137754587054892683011744733886'); 34 ok (2/3,"0.6666666666666666666666666666666666666667"); 36 #ok ( [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/run/ |
H A D | switchn.t | 10 ok 1 11 ok 2
|
H A D | switchp.t | 9 ok 1 10 ok 2
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
H A D | loopctl.t | 36 my $ok; 42 $ok = 0; 48 $ok = 1; 51 $ok = 0; 57 $ok = 0; 60 $ok = 0; 62 print ($ok ? "ok 1\n" : "not ok 1\n"); 66 $ok [all...] |
H A D | fh.t | 15 ok(!defined(fileno($a))); 16 ok(!defined *{$a}); 19 ok(defined *{$a}); 22 ok(!close $a); 23 ok(!defined *{$a}); 25 ok(open($a, ">&STDOUT")); 26 ok(defined *{$a}); 28 ok(close $a);
|
H A D | substr.t | 26 sub ok { print (($_[1] ? "" : "not ") . "ok $_[0]\n") } subroutine 30 ok 1, substr($a,0,3) eq 'abc'; # P=Q R S 31 ok 2, substr($a,3,3) eq 'def'; # P Q R S 32 ok 3, substr($a,6,999) eq 'xyz'; # P Q S R 34 ok 4, $w-- == 1 ; 36 ok 5, $@ =~ /$FATAL_MSG/; 37 ok 6, substr($a,0,-6) eq 'abc'; # P=Q R S 38 ok 7, substr($a,-3,1) eq 'x'; # P Q R S 42 ok [all...] |
H A D | filetest.t | 15 ok( -d 'op' ); 16 ok( -f 'TEST' ); 17 ok( !-f 'op' ); 18 ok( !-d 'TEST' ); 19 ok( -r 'TEST' ); 41 ok( !-w 'TEST' ); 51 ok( -r 'op' ); 57 ok( -w 'op' ); 63 ok( -x 'op' ); # Hohum. Are directories -x everywhere?
|
H A D | concat.t | 8 # This ok() function is specially written to avoid any concatenation. 10 sub ok { subroutine 11 my($ok, $name) = @_; 13 printf "%sok %d - %s\n", ($ok ? "" : "not "), $test, $name; 15 printf "# Failed test at line %d\n", (caller)[2] unless $ok; 18 return $ok; 25 ok("$a" eq "foo", "verifying assign"); 26 ok("$a$b" eq "foobar", "basic concatenation"); 27 ok("$c$a$c" eq "foo", "concatenate undef, fore and aft"); 37 ok( [all...] |
H A D | study.t | 10 sub ok ($;$) { subroutine 11 my($ok, $name) = @_; 16 printf "%s $test%s\n", $ok ? 'ok' : 'not ok', 19 printf "# Failed test at line %d\n", (caller($Ok_Level))[2] unless $ok; 22 return $ok; 28 ok( !$nok, $name ); 46 ok( !$match && !$@, 'testing studys that used to hang' ); 55 ok( [all...] |
H A D | do.t | 7 ok($_[0]); 14 ok($_[0]); 20 sub ok { subroutine 21 my($ok, $name) = @_; 24 printf "%s %d%s\n", $ok ? "ok" : "not ok", 28 printf "# Failed test at line %d\n", (caller)[2] unless $ok; 31 return $ok; 40 ok( [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Simple/t/ |
H A D | extra.t | 17 sub ok ($;$) { subroutine 19 my $ok = ''; 20 $ok .= "not " unless $test; 21 $ok .= "ok $test_num"; 22 $ok .= " - $name" if defined $name; 23 $ok .= "\n"; 24 print $ok; 41 ok(1, 'Foo'); 42 ok( [all...] |
H A D | fail.t | 26 sub ok ($;$) { subroutine 28 my $ok = ''; 29 $ok .= "not " unless $test; 30 $ok .= "ok $test_num"; 31 $ok .= " - $name" if defined $name; 32 $ok .= "\n"; 33 print $ok; 44 ok( 1, 'passing' ); 45 ok( [all...] |
H A D | bad_plan.t | 12 sub ok ($;$) { subroutine 14 my $ok = ''; 15 $ok .= "not " unless $test; 16 $ok .= "ok $test_num"; 17 $ok .= " - $name" if defined $name; 18 $ok .= "\n"; 19 print $ok; 32 ok( $@ =~ /^plan\(\) doesn't understand 7/, 'bad plan()' ) || 36 ok( [all...] |
H A D | output.t | 18 sub ok ($;$) { subroutine 20 my $ok = ''; 21 $ok .= "not " unless $test; 22 $ok .= "ok $test_num"; 23 $ok .= " - $name" if defined $name; 24 $ok .= "\n"; 25 print $ok; 38 ok( defined $out ); 48 ok( [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/t/ |
H A D | lln.t | 29 sub ok { print +(($_[0] eq $_[1]) ? "": "not "), "ok ",++$i,"\n" } subroutine 33 ok(!!looks_like_number("1"), 1); 34 ok(!!looks_like_number("-1"), 1); 35 ok(!!looks_like_number("+1"), 1); 36 ok(!!looks_like_number("1.0"), 1); 37 ok(!!looks_like_number("+1.0"), 1); 38 ok(!!looks_like_number("-1.0"), 1); 39 ok(!!looks_like_number("-1.0e-12"), 1); 40 ok(!!looks_like_numbe [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
H A D | if.t | 14 ok( eval "use if ($v_minus > \$]), strict => 'subs'; \${'f'} = 12" eq 12, 17 ok( eval "use if ($v_minus > \$]), strict => 'refs'; \${'f'} = 12" eq 12, 20 ok( eval "use if ($v_plus > \$]), strict => 'subs'; \${'f'} = 12" eq 12, 23 ok( (not defined eval "use if ($v_plus > \$]), strict => 'refs'; \${'f'} = 12" 27 ok( eval "use if 1, Cwd; cwd() || 1;", 30 ok( eval "use if qw/ 1 if 1 strict subs /; \${'f'} = 12" eq 12,
|
H A D | Internals.t | 16 ok( !Internals::SvREADONLY $foo ); 17 ok( Internals::SvREADONLY $foo, 1 ); 18 ok( Internals::SvREADONLY $foo ); 19 ok( !Internals::SvREADONLY $foo, 0 ); 20 ok( !Internals::SvREADONLY $foo ); 22 ok( !Internals::SvREADONLY @foo ); 23 ok( Internals::SvREADONLY @foo, 1 ); 24 ok( Internals::SvREADONLY @foo ); 25 ok( !Internals::SvREADONLY @foo, 0 ); 26 ok( !Internal [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/lib/Filter/Simple/ |
H A D | ExportTest.pm | 6 @EXPORT_OK = qw(ok); 10 sub ok { print "ok @_\n" } subroutine
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/ |
H A D | colon.t | 19 sub ok { subroutine 20 my($test,$ok) = @_; 21 print "not " unless $ok; 22 print "ok $test\n"; 29 ok 1, (eval "package ABC; sub zyx {1}; 1;" and 34 ok 2, (eval "package LABEL; sub zyx {1}; 1;" and 39 ok 3, (eval "package XYZZY; sub zyx {1}; 1;" and 44 ok 4, (eval "package m; sub zyx {1}; 1;" and 49 ok 5, (eval "package q; sub zyx {1}; 1;" and 54 ok [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/ |
H A D | Memoize.t | 27 ok(not exists $hash{'strict.pm'}); 28 ok(exists $hash{known_to_exist}); 29 ok($hash{fake_file2} eq 45678); 30 ok($hash{fake_file1} eq 123); 31 ok(exists $hash{known_to_exist}); 32 ok(not exists $hash{'strict.pm'}); 33 ok(not defined $hash{fake_file3}); 34 ok(not defined $hash{known_to_exist}); 35 ok(not exists $hash{known_to_exist}); 36 ok(no [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Locale/Codes/t/ |
H A D | all.t | 30 my $ok; 39 $ok = 1; 45 $ok = 0; 51 $ok = 0; 56 $ok = 0; 60 print ($ok ? "ok 1\n" : "not ok 1\n"); 65 $ok = 1; 71 $ok [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Math/BigRat/t/ |
H A D | bigrat.t | 27 $x = Math::BigRat->new(1234); ok ($x,1234); 28 ok ($x->isa('Math::BigRat')); 29 ok (!$x->isa('Math::BigFloat')); 30 ok (!$x->isa('Math::BigInt')); 37 $x = $cr->$func(1234); ok ($x,1234); 39 $x = $cr->$func('1234/1'); ok ($x,1234); 40 $x = $cr->$func('1234/2'); ok ($x,617); 42 $x = $cr->$func('100/1.0'); ok ($x,100); 43 $x = $cr->$func('10.0/1.0'); ok ($x,10); 44 $x = $cr->$func('0.1/10'); ok ( [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Harness/t/ |
H A D | assert.t | 20 ok( defined &assert, 'assert() exported' ); 22 ok( !eval { assert( 0 ); 1 }, 'assert( FALSE ) causes death' ); 25 ok( eval { assert( 1 ); 1 }, 'assert( TRUE ) does nothing' ); 27 ok( !eval { assert( 0, 'some name' ); 1 }, 'assert( FALSE, NAME )' );
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/io/ |
H A D | binmode.t | 15 ok( binmode(STDERR), 'STDERR made binary' ); 17 ok( binmode(STDERR, ":unix"), ' with unix discipline' ); 19 ok(1, ' skip unix discipline without PerlIO layers' ); 21 ok( binmode(STDERR, ":raw"), ' raw' ); 22 ok( binmode(STDERR, ":crlf"), ' and crlf' ); 25 ok( binmode(STDOUT), 'STDOUT made binary' ) || exit(1); 27 ok( binmode(STDOUT, ":unix"), ' with unix discipline' ); 29 ok(1, ' skip unix discipline without PerlIO layers' ); 31 ok( binmode(STDOUT, ":raw"), ' raw' ); 32 ok( binmod [all...] |