Searched refs:ok (Results 1 - 25 of 714) sorted by relevance

1234567891011>>

/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/bignum/t/
H A Dbigrat.t21 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 Dbignum.t21 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...]
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/t/run/
H A Dswitchn.t10 ok 1
11 ok 2
H A Dswitchp.t9 ok 1
10 ok 2
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dloopctl.t36 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 Dfh.t15 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 Dsubstr.t26 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 Dfiletest.t15 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 Dconcat.t8 # 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 Dstudy.t10 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 Ddo.t7 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...]
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Simple/t/
H A Dextra.t17 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 Dfail.t26 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 Dbad_plan.t12 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 Doutput.t18 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...]
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/t/
H A Dlln.t29 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...]
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/
H A Dif.t14 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 DInternals.t16 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...]
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/t/lib/Filter/Simple/
H A DExportTest.pm6 @EXPORT_OK = qw(ok);
10 sub ok { print "ok @_\n" } subroutine
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/
H A DMemoize.t27 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...]
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/t/comp/
H A Dcolon.t19 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...]
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Locale/Codes/t/
H A Dall.t30 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...]
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Math/BigRat/t/
H A Dbigrat.t27 $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...]
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Harness/t/
H A Dassert.t20 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 )' );
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/t/io/
H A Dbinmode.t15 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...]

Completed in 107 milliseconds

1234567891011>>