/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/ |
H A D | testlib.pm | 31 desirable to test it bypassing C<make test>. By adding 35 to a test program the intermediate directories used by C<make> are
|
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
H A D | oct.t | 7 my $test = 1; 9 sub test ($$$) { subroutine 25 print "ok $test # $act $string\n"; 38 print "not ok $test # $act \"$string\" gives \"$result\" ($resstr), not $value ($valstr)\n"; 40 $test++; 43 test ('oct', '0b1_0101', 0b101_01); 44 test ('oct', '0b10_101', 0_2_5); 45 test ('oct', '0b101_01', 2_1); 46 test ('oct', '0b1010_1', 0x1_5); 48 test ('oc [all...] |
H A D | eval.t | 196 print "# eval { return } test\n"; 208 print "# eval q{ return } test\n"; 325 my $test = 60; 328 print +($zzz == 3 && eval '$zzz' == 3) ? 'ok' : 'not ok', " $test\n"; 329 $test++; 330 print eval '$yyy' == 2 ? 'ok' : 'not ok', " $test\n"; 331 $test++; 338 print +($zzz == 4 && eval '$zzz' == 4) ? 'ok' : 'not ok', " $test\n"; 339 $test++; 340 print eval '$yyy' == 2 ? 'ok' : 'not ok', " $test\ [all...] |
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/B/t/ |
H A D | showlex.t | 19 my $test = 1; 21 sub ok { print "ok $test\n"; $test++ } 33 print "# use5005threads: test $test skipped\n";
|
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Test/ |
H A D | Harness.pm | 28 Test::Harness - Run Perl standard test scripts with statistics 34 $Header: /home/cvs/test-harness/lib/Test/Harness.pm,v 1.80 2003/12/31 02:39:21 andy Exp $ 81 B<STOP!> If all you want to do is write a test script, consider using 84 (By using the Test module, you can write test scripts without 88 Perl test scripts print to standard output C<"ok N"> for each single 89 test, where C<N> is an increasing sequence of integers. The first line 90 output by a standard test script is C<"1..M"> with C<M> being the 91 number of tests that should be run within the test 99 =head2 The test script output 102 test progra [all...] |
H A D | Builder.pm | 41 Test::Builder - Backend for building test libraries 65 my($test, $name) = @_; 67 $Test->ok($test, $name); 75 building block upon which to write your own test libraries I<which can 87 test. 89 Since you only run one test per program, there is B<one and only one> 186 Gets/sets the # of tests we expect this test to run and prints out 209 Declares that this test will run an indeterminate # of tests. 270 $Test->ok($test, $name); 272 Your basic test [all...] |
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/ |
H A D | restrict.t | 49 my $test; 71 unless (ok ++$test, "@in_keys" eq "@out_keys") { 79 ok ++$test, Internals::SvREADONLY(%$copy), "cloned hash restricted?"; 81 ok ++$test, Internals::SvREADONLY($copy->{question}), 84 ok ++$test, !Internals::SvREADONLY($copy->{answer}), 88 unless (ok ++$test, !$@, "Can assign to reserved key 'extra'?") { 95 ok ++$test, $@, "Can not assign to invalid key 'nono'?"; 97 ok ++$test, exists $copy->{undef}, 100 ok ++$test, !defined $copy->{undef}, 123 unless (ok ++$test, ! [all...] |
/opensolaris-onvv-gate/usr/src/cmd/perl/contrib/Sun/Solaris/Utils/t/ |
H A D | gmatch.t | 27 # test script for Sun::Solaris::Utils gmatch() 39 my ($test); 40 $test = 2; 57 print("ok $test\n"); 59 print("not ok $test\n"); 61 $test++;
|
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/t/base/ |
H A D | lex.t | 192 my $test = 42; 198 s/^not /<<EOT/e and T '^main:\(eval \d+\):2$', $test++; 201 print $_, $test++, "\n"; 202 T('^main:\(eval \d+\):6$', $test++); 204 T('^main:plunk:1$', $test++); 206 print "# $@\nnot ok $test\n" if $@; 207 T '^main:plink:53$', $test++; 215 my $test = 47; 217 print "ok $test\n"; 218 ++$test; [all...] |
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/t/ |
H A D | TEST | 38 die "You need to run \"make test\" first to set things up.\n" 103 if (m!^(ext/\S+/?(?:[^/\s]+\.t|test\.pl)|lib/\S+?(?:\.t|test\.pl))\s!) { 187 # + 3 : we want three dots between the test name and the "ok" 191 while ($test = shift @tests) { 193 if ( $infinite{$test} && $type eq 'compile' ) { 194 print STDERR "$test creates infinite loop! Skipping.\n"; 197 if ($test =~ /^$/) { 201 if ($test eq "comp/redef.t") { 205 elsif ($test [all...] |
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/File/ |
H A D | CheckTree.pm | 36 directives, each containing a filename plus a file test to try on it. 37 (The file test may also be a "cd", causing subsequent relative filenames 38 to be interpreted relative to that directory.) After the file test 39 you may put C<|| die> to make it a fatal error if the file test fails. 40 The default is C<|| warn>. The file test may optionally have a "!' prepended 41 to test for the opposite condition. If you do a cd and then list some 47 Only the first failed test of the bunch will produce a warning. 72 my ($starting_dir, $file, $test, $cwd, $oldwarnings); 90 # so that $file is "/foo", $test is "-rwx || die" 91 ($file, $test) [all...] |
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Memoize/t/ |
H A D | array.t | 56 my $test = shift; 58 print ((($arg eq ARRAY) ? '' : 'not '), "ok $test\n"); # List context 60 print ((($arg eq SCALAR) ? '' : 'not '), "ok $test\n"); # Scalar context
|
/opensolaris-onvv-gate/usr/src/common/openssl/crypto/md4/ |
H A D | md4test.c | 75 static char *test[]={ variable 104 P=(unsigned char **)test; 118 printf("test %d ok\n",i);
|
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ |
H A D | validate.pl | 4 ;# lines containing a filename plus a file test to try on it. (The 5 ;# file test may also be a 'cd', causing subsequent relative filenames 6 ;# to be interpreted relative to that directory.) After the file test 7 ;# you may put '|| die' to make it a fatal error if the file test fails. 8 ;# The default is '|| warn'. The file test may optionally have a ! prepended 9 ;# to test for the opposite condition. If you do a cd and then list some 15 ;# Only the first failed test of the bunch will produce a warning. 33 local($file,$test,$warnings,$oldwarnings); 37 ($file,$test) = split(' ',$check,2); 38 if ($test [all...] |
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/t/uni/ |
H A D | case.pl | 3 require "test.pl"; 53 my $test = 1; 61 "ok $test # $i -> $w\n" : "not ok $test # $i -> $e ($w)\n"; 62 $test++; 121 "ok $test # $i -> $w\n" : "not ok $test # $h -> $e ($w)\n"; 122 $test++; 131 "ok $test # $i -> $w\n" : "not ok $test # [all...] |
/opensolaris-onvv-gate/usr/src/cmd/sendmail/libsm/ |
H A D | t-path.c | 17 #include <sm/test.h> 26 sm_test_begin(argc, argv, "test path handling");
|
/opensolaris-onvv-gate/usr/src/lib/libsqlite/tool/ |
H A D | speedtest.tcl | 10 # Run a test 15 set sqlfile test$cnt.sql 70 # puts [format $format {SQLite 2.4 (test):} $t] 131 set fd [open test$cnt.sql w] 142 set fd [open test$cnt.sql w] 155 set fd [open test$cnt.sql w] 166 set fd [open test$cnt.sql w] 175 set fd [open test$cnt.sql w] 183 set fd [open test$cnt.sql w] 194 set fd [open test [all...] |
H A D | speedtest2.tcl | 10 # Run a test 15 set sqlfile test$cnt.sql 62 # puts [format $format {SQLite 2.4 (test):} $t] 121 set fd [open test$cnt.sql w] 133 set fd [open test$cnt.sql w] 139 set fd [open test$cnt.sql w] 150 set fd [open test$cnt.sql w] 156 set fd [open test$cnt.sql w] 167 set fd [open test$cnt.sql w] 173 set fd [open test [all...] |
/opensolaris-onvv-gate/usr/src/cmd/dtrace/test/tst/sparc/pid/ |
H A D | tst.br.s | 39 ENTRY(test) function 64 SET_SIZE(test) 76 call test
|
/opensolaris-onvv-gate/usr/src/cmd/factor/ |
H A D | factor.c | 57 int test = 1; local 70 test = 0; 74 while(test == 1){
|
/opensolaris-onvv-gate/usr/src/common/openssl/crypto/dsa/ |
H A D | dsa_gen.c | 108 BIGNUM *r0,*W,*X,*c,*test; local 140 test = BN_CTX_get(ctx); 142 if (!BN_lshift(test,BN_value_one(),bits-1)) 236 if (!BN_add(X,X,test)) goto err; 245 if (BN_cmp(p,test) >= 0) 270 if (!BN_sub(test,p,BN_value_one())) goto err; 271 if (!BN_div(r0,NULL,test,q,ctx)) goto err; 273 if (!BN_set_word(test,h)) goto err; 278 /* g=test^r0%p */ 279 if (!BN_mod_exp_mont(g,test,r [all...] |
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Math/BigInt/t/ |
H A D | config.t | 14 # test whether Math::BigInt->config() and Math::BigFloat->config() works 36 ok ($cfg->{precision}||0,0); # should test for undef 60 ok ($cfg->{precision}||0,0); # should test for undef 69 # test setting values 71 my $test = { 84 foreach my $key (keys %$test) 87 eval ( "$mbi\->config( $key => '$test->{$key}' );" ); 88 $c = $mbi->config(); ok ("$key = $c->{$key}", "$key = $test->{$key}"); 91 if (($c->{$key}||0) ne $test->{$key}) 97 ok ("$key eq $c->{$key}","$key ne $test [all...] |
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Harness/ |
H A D | Straps.pm | 24 Test::Harness::Straps - detailed analysis of test results 32 # Various ways to interpret a test 51 analysis of the test results difficult for anything but a human. To 52 make it easier for programs to work with test results, we provide 103 Analyzes the output of a single test, assigning it the given C<$name> 104 for use in the total report. Returns the C<%results> of the test. 107 C<@test_output> should be the raw output from the test, including 172 $type = 'test'; 179 # print "not " unless $test; 203 warn "Enormous test numbe [all...] |
/opensolaris-onvv-gate/usr/src/grub/grub-0.97/stage2/ |
H A D | md5.c | 336 test (char *buffer, char *expected) function 354 test ("", "d41d8cd98f00b204e9800998ecf8427e"); 355 test ("a", "0cc175b9c0f1b6a831c399e269772661"); 356 test ("abc", "900150983cd24fb0d6963f7d28e17f72"); 357 test ("message digest", "f96b697d7cb7938d525a2f31aaf161d0"); 358 test ("abcdefghijklmnopqrstuvwxyz", "c3fcd3d76192e4007dfb496cca67e13b"); 359 test ("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789", 361 test ("12345678901234567890123456789012345678901234567890123456789012345678901234567890", 363 test ("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz3456", 365 test ("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz34 [all...] |
/opensolaris-onvv-gate/usr/src/lib/libc/amd64/gen/ |
H A D | strcpy.s | 37 test %edx, %edx 54 test %edx, %edx /* edx will be 0 if chars are non-null */ 75 test %edx, %edx 159 test %edx, %edx /* edx will be 0 if chars are non-null */ 172 test %edx, %edx 184 test %edx, %edx 197 test %edx, %edx 209 test %edx, %edx 236 test %edx, %edx 257 test [all...] |