/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
H A D | grep.t | 9 $test = 1; 14 print "ok $test\n"; 21 $test++; 25 $test++; 29 $test++; 33 print map({$_} ("ok $test\n")); 34 $test++; 36 ({$_} ("ok $test\n")); 37 $test++; 38 print((map({a => $_}, ("ok $test\ [all...] |
H A D | pat.t | 4 # the format supported by op/regexp.t. If you want to add a test 72 $* = 1; # test 3 only tested the optimized version--this one is for real 285 # removed test 289 $test = 73; 293 print "ok $test\n"; 294 $test++; 297 print "ok $test\n"; 298 $test++; 317 print "ok $test\n"; 318 $test [all...] |
H A D | gv.t | 72 { package Foo::Bar; no warnings 'once'; $test=1; } 76 # test undef operator clearing out entire glob 83 # test warnings from assignment of undef to glob 94 # test *glob{THING} syntax 118 # test if defined() doesn't create any new symbols 121 my $test = 24; 125 ++$test; print "ok $test\n"; 128 ++$test; print "ok $test\ [all...] |
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Attribute/Handlers/demo/ |
H A D | demo_chain.pl | 23 sub test : Postfix Prefix { subroutine 27 test();
|
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/ |
H A D | forgive.t | 39 my $test = 1; 45 print ((!defined $result)?"ok $test\n":"not ok $test\n"); $test++; 46 print (($@ ne '')?"ok $test\n":"not ok $test\n"); $test++; 60 print ((defined $result)?"ok $test\n":"not ok $test\n"); $test [all...] |
H A D | croak.t | 3 # Please keep this test this simple. (ie just one test.) 5 # with 5.005_03. This test shows it up, whereas malice.t does not. 23 die "Oi! No! Don't change this test so that Carp is used before Storable" 30 for my $test (1,2) { 34 print "ok $test\n"; 37 print "not ok $test # Expected a meaningful croak. Got '$@'\n";
|
/opensolaris-onvv-gate/usr/src/cmd/perl/contrib/Sun/Solaris/Kstat/t/ |
H A D | Kstat.t | 27 # test script for Sun::Solaris::Kstat 58 my ($test, $ks); 59 $test = 2; 61 print("not ok $test: $@"); 63 print("ok $test\n"); 65 $test++; 69 print("not ok $test: $@"); 71 print("ok $test\n"); 73 $test++; 81 print("ok $test\ [all...] |
/opensolaris-onvv-gate/usr/src/uts/sun4u/sunfire/io/ |
H A D | ac_test.c | 63 caddr_t va; /* test target VA */ 65 uint_t in_test; /* count of threads in test */ 102 struct test_info *test; local 137 * again, instead return the current test info. 151 * find the test entry 155 for (test = test_base; test != NULL; test = test->next) { 156 if (test 239 struct test_info *test, **prev; local 303 struct test_info *test, **prev; local 356 struct test_info *test; local 508 struct test_info *test; local [all...] |
/opensolaris-onvv-gate/usr/src/common/openssl/crypto/hmac/ |
H A D | hmactest.c | 89 } test[4]={ variable in typeref:struct:test_st 92 "More text test vectors to stuff up EBCDIC machines :-)", 133 printf("test skipped: MD5 disabled\n"); 137 ebcdic2ascii(test[0].data, test[0].data, test[0].data_len); 138 ebcdic2ascii(test[1].data, test[1].data, test[1].data_len); 139 ebcdic2ascii(test[ [all...] |
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ |
H A D | complete.pl | 47 local($prompt, @cmp_list, $return, @match, $l, $test, $cmp, $r); 64 $l = length($test = shift(@match)); 67 until (substr($cmp, 0, $l) eq substr($test, 0, $l)) { 73 print($test = substr($test, $r, $l - $r)); 74 $r = length($return .= $test);
|
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Text/ |
H A D | Abbrev.t | 36 my $test = 5; 41 print (($r eq $s)?"ok $test\n":"not ok $test\n"); $test++; 45 print (($r eq $s)?"ok $test\n":"not ok $test\n"); $test++; 51 print (($r eq $s)?"ok $test\n":"not ok $test\n"); $test [all...] |
H A D | Soundex.t | 5 # test module for soundex.pl 26 $test = 0; 35 ++$test; 46 print "not ok $test\n"; 60 print "not ok $test\n"; 75 print "not ok $test\n"; 91 print "not ok $test\n"; 96 print "ok $test\n" unless $bad; 103 # Knuth's test cases, scalar in, scalar out
|
/opensolaris-onvv-gate/usr/src/cmd/dtrace/test/tst/common/providers/ |
H A D | err.D_PDESC_ZERO.nonprofile.d | 31 * Simple profile provider test; 45 profile:::test
|
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Locale/Codes/t/ |
H A D | country.t | 16 # If it evaluates to FALSE, then "not ok N" is printed for the test, 18 # If it is true (1), the test is treated as passing, otherwise it failed. 120 foreach $test (@TESTS) 122 eval "print (($test->[0]) ? \"ok $testid\\n\" : \"not ok $testid\\n\" )"; 125 if (!$test->[1])
|
H A D | currency.t | 14 # This is an array of tests. Each test is eval'd as an expression. 15 # If it evaluates to FALSE, then "not ok N" is printed for the test, 78 foreach $test (@TESTS) 80 eval "print (($test) ? \"ok $testid\\n\" : \"not ok $testid\\n\" )";
|
H A D | languages.t | 16 # This is an array of tests. Each test is eval'd as an expression. 17 # If it evaluates to FALSE, then "not ok N" is printed for the test, 32 #---- test recent changes ---------------------------------------------- 103 foreach $test (@TESTS) 105 eval "print (($test) ? \"ok $testid\\n\" : \"not ok $testid\\n\" )";
|
H A D | rename.t | 13 # This is an array of tests. Each test is eval'd as an expression. 14 # If it evaluates to FALSE, then "not ok N" is printed for the test, 72 foreach $test (@TESTS) 74 eval "print (($test) ? \"ok $testid\\n\" : \"not ok $testid\\n\" )";
|
H A D | script.t | 11 # If it evaluates to FALSE, then "not ok N" is printed for the test, 13 # If it is true (1), the test is treated as passing, otherwise it failed. 89 foreach $test (@TESTS) 91 eval "print (($test->[0]) ? \"ok $testid\\n\" : \"not ok $testid\\n\" )"; 94 if (!$test->[1])
|
H A D | uk.t | 16 # This is an array of tests. Each test is eval'd as an expression. 17 # If it evaluates to FALSE, then "not ok N" is printed for the test, 63 foreach $test (@TESTS) 65 eval "print (($test) ? \"ok $testid\\n\" : \"not ok $testid\\n\" )";
|
/opensolaris-onvv-gate/usr/src/lib/libc/amd64/gen/ |
H A D | strlen.s | 60 test %edx, %edx 71 test %edx, %edx /* if no null byte, %edx must be 0 */ 77 test %edx, %edx 83 test %edx, %edx 89 test %edx, %edx 113 test %dl, %dl 115 test $0x01, %dl 118 test $0x02, %dl 122 test $0x04, %dl 125 test [all...] |
/opensolaris-onvv-gate/usr/src/cmd/cmd-inet/usr.sbin/in.ftpd/ |
H A D | wu_fnmatch.c | 54 char test = *string; local 60 test = tolower((unsigned char) test); 81 if ((c <= test) && (test <= c2)) 84 else if (c == test) 87 else if (c == test) 99 char test; local 165 for (test = *string; test ! [all...] |
/opensolaris-onvv-gate/usr/src/cmd/dtrace/test/tst/common/sdt/ |
H A D | tst.sdtargs.d | 42 printf("sdt:::test failed.\n"); 46 sdt:::test 57 sdt:::test 65 trace("test timed out");
|
/opensolaris-onvv-gate/usr/src/common/openssl/crypto/sha/ |
H A D | sha1test.c | 82 static char *test[]={ variable 116 ebcdic2ascii(test[0], test[0], strlen(test[0])); 117 ebcdic2ascii(test[1], test[1], strlen(test[1])); 121 P=(unsigned char **)test; 135 printf("test %d ok\n",i); 159 printf("test [all...] |
H A D | shatest.c | 82 static char *test[]={ variable 116 ebcdic2ascii(test[0], test[0], strlen(test[0])); 117 ebcdic2ascii(test[1], test[1], strlen(test[1])); 121 P=(unsigned char **)test; 135 printf("test %d ok\n",i); 159 printf("test [all...] |
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Math/ |
H A D | Complex.t | 21 my ($args, $op, $target, $test, $test_set, $try, $val, $zvalue, @set, @val); 23 $test = 0; 40 $test_set = 0; # Assume not a test over a set of values 60 test($zvalue, $target, @args); 63 test($op, undef, @args); 72 $test++; 78 print "# $test Re(z) = ",$z->Re(), " Im(z) = ", $z->Im(), " z = $z\n"; 81 push(@script, qq(print "ok $test\\n"}\n)); 83 $test++; 88 print "# $test R 352 sub test { subroutine [all...] |