| /onnv-gate/usr/src/uts/sun4u/sunfire/io/ |
| H A D | ac_test.c | 102 struct test_info *test; in ac_mem_test_start() local 155 for (test = test_base; test != NULL; test = test->next) { in ac_mem_test_start() 156 if (test->board == softsp->board && in ac_mem_test_start() 157 test->bank == pkt->bank) in ac_mem_test_start() 160 if (test == NULL) { in ac_mem_test_start() 171 if (ddi_copyout(&test->info, pkt->cmd_cfga.private, in ac_mem_test_start() 187 test = kmem_zalloc(sizeof (struct test_info), KM_SLEEP); in ac_mem_test_start() 188 test->va = vmem_alloc(heap_arena, PAGESIZE, VM_SLEEP); in ac_mem_test_start() 191 test->mem_info = mem_info; in ac_mem_test_start() 192 test->board = softsp->board; in ac_mem_test_start() [all …]
|
| /onnv-gate/usr/src/cmd/dtrace/test/tst/sparc/pid/ |
| H A D | tst.br.d.out | 1 test:entry 2 test:0 3 test:4 4 test:8 5 test:c 6 test:10 7 test:14 8 test:18 9 test:1c 10 test:20 [all …]
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/t/ |
| H A D | function.t | 19 sub test { subroutine 57 test(2,request_method() eq 'GET',"CGI::request_method()"); 58 test(3,query_string() eq 'game=chess;game=checkers;weather=dull',"CGI::query_string()"); 59 test(4,param() == 2,"CGI::param()"); 60 test(5,join(' ',sort {$a cmp $b} param()) eq 'game weather',"CGI::param()"); 61 test(6,param('game') eq 'chess',"CGI::param()"); 62 test(7,param('weather') eq 'dull',"CGI::param()"); 63 test(8,join(' ',param('game')) eq 'chess checkers',"CGI::param()"); 64 test(9,param(-name=>'foo',-value=>'bar'),'CGI::param() put'); 65 test(10,param(-name=>'foo') eq 'bar','CGI::param() get'); [all …]
|
| H A D | request.t | 17 sub test { subroutine 36 test(2,$q,"CGI::new()"); 37 test(3,$q->request_method eq 'GET',"CGI::request_method()"); 38 test(4,$q->query_string eq 'game=chess;game=checkers;weather=dull',"CGI::query_string()"); 39 test(5,$q->param() == 2,"CGI::param()"); 40 test(6,join(' ',sort $q->param()) eq 'game weather',"CGI::param()"); 41 test(7,$q->param('game') eq 'chess',"CGI::param()"); 42 test(8,$q->param('weather') eq 'dull',"CGI::param()"); 43 test(9,join(' ',$q->param('game')) eq 'chess checkers',"CGI::param()"); 44 test(10,$q->param(-name=>'foo',-value=>'bar'),'CGI::param() put'); [all …]
|
| H A D | html.t | 33 sub test { subroutine 40 test(2,h1() eq '<h1 />',"single tag"); 41 test(3,h1('fred') eq '<h1>fred</h1>',"open/close tag"); 42 test(4,h1('fred','agnes','maura') eq '<h1>fred agnes maura</h1>',"open/close tag multiple"); 43 test(5,h1({-align=>'CENTER'},'fred') eq '<h1 align="CENTER">fred</h1>',"open/close tag with attribu… 44 test(6,h1({-align=>undef},'fred') eq '<h1 align>fred</h1>',"open/close tag with orphan attribute"); 45 test(7,h1({-align=>'CENTER'},['fred','agnes']) eq 50 …test(8,h1('fred','agnes','maura') eq '<h1>fred-agnes-maura</h1>',"open/close tag \$\" interpolatio… 52 test(9,header() eq "Content-Type: text/html; charset=ISO-8859-1${CRLF}${CRLF}","header()"); 53 test(10,header(-type=>'image/gif') eq "Content-Type: image/gif${CRLF}${CRLF}","header()"); [all …]
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
| H A D | grep.t | 14 print "ok $test\n"; 33 print map({$_} ("ok $test\n")); 36 ({$_} ("ok $test\n")); 38 print((map({a => $_}, ("ok $test\n")))[0]->{a}); 42 ("ok $test\n")))[0]->{a}); 44 print map { $_ } ("ok $test\n"); 47 { $_ } ("ok $test\n"); 49 print((map {a => $_}, ("ok $test\n"))[0]->{a}); 53 ("ok $test\n"))[0]->{a}); 56 print map($_&$x,("ok $test\n")); [all …]
|
| H A D | pat.t | 293 print "ok $test\n"; 297 print "ok $test\n"; 317 print "ok $test\n"; 321 print "ok $test\n"; 363 print "ok $test\n"; 369 print "ok $test\n"; 373 print "ok $test\n"; 383 print "ok $test\n"; 387 print "ok $test\n"; 393 print "ok $test\n"; [all …]
|
| H A D | gv.t | 125 ++$test; print "ok $test\n"; 128 ++$test; print "ok $test\n"; 131 ++$test; print "ok $test\n"; 134 ++$test; print "ok $test\n"; 137 ++$test; print "ok $test\n"; 139 *{$a} = sub { print "ok $test\n" }; 151 ++$test; print "ok $test\n"; 153 ++$test; print "ok $test\n"; 158 ++$test; print "ok $test\n"; 160 ++$test; print "ok $test\n"; [all …]
|
| H A D | eval.t | 328 print +($zzz == 3 && eval '$zzz' == 3) ? 'ok' : 'not ok', " $test\n"; 330 print eval '$yyy' == 2 ? 'ok' : 'not ok', " $test\n"; 338 print +($zzz == 4 && eval '$zzz' == 4) ? 'ok' : 'not ok', " $test\n"; 340 print eval '$yyy' == 2 ? 'ok' : 'not ok', " $test\n"; 354 print "ok $test\n"; 377 print db1() == 2 ? 'ok' : 'not ok', " $test\n"; $test++; 378 print DB::db2() == 2 ? 'ok' : 'not ok', " $test\n"; $test++; 379 print DB::db3() == 3 ? 'ok' : 'not ok', " $test\n"; $test++; 380 print DB::db4() == 3 ? 'ok' : 'not ok', " $test\n"; $test++; 381 print DB::db5() == 3 ? 'ok' : 'not ok', " $test\n"; $test++; [all …]
|
| /onnv-gate/usr/src/lib/efcode/fcode_test/ |
| H A D | access.fth | 26 ." Access test: " 27 0 value word-test 28 0 value char-test 29 0 value end-test 31 variable var-test 32 create access-test 34 here to word-test 36 here to char-test 38 here to end-test 43 " l,+" access-test la1+ word-test = .passed? [all …]
|
| H A D | test64.fth | 48 create test-64 58 " xa1+.1" test-64 xa1+ test-64 /x + = .passed? 59 " xa+.1" test-64 2 xa+ test-64 /x 2 * + = .passed? 60 " x@.1" test-64 x@ h# 01020304 h# 05060708 xl= .passed? 61 " x@.2" test-64 xa1+ x@ h# 81121314 h# 85161718 xl= .passed? 62 " <l@.1" test-64 2 xa+ dup la1+ <l@ swap x@ x= .passed? 63 " bxjoin.1" 8 7 6 5 4 3 2 1 bxjoin test-64 x@ x= .passed? 64 " wxjoin.1" h# 0708 h# 0506 h# 0304 h# 0102 wxjoin test-64 x@ x= .passed? 65 " lxjoin.1" h# 05060708 h# 01020304 lxjoin test-64 x@ x= .passed? 66 " x!.1" h# 85161718 h# 81121314 lxjoin test-64 x! [all …]
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/ |
| H A D | RefHash.t | 71 test($all_ok); 78 test(not $@); 79 test(ref($h) eq 'Tie::RefHash'); 80 test(defined(tied(%h)) and tied(%h) =~ /^Tie::RefHash/); 82 test($h{$ref} eq 'cholet'); 83 test(exists $h{$ref}); 84 test((keys %h) == 1); 85 test(ref((keys %h)[0]) eq 'ARRAY'); 86 test((keys %h)[0] eq $ref); 87 test((values %h) == 1); [all …]
|
| /onnv-gate/usr/src/common/openssl/crypto/hmac/ |
| H A D | hmactest.c | 89 } test[4]={ variable 137 ebcdic2ascii(test[0].data, test[0].data, test[0].data_len); in main() 138 ebcdic2ascii(test[1].data, test[1].data, test[1].data_len); in main() 139 ebcdic2ascii(test[2].key, test[2].key, test[2].key_len); in main() 140 ebcdic2ascii(test[2].data, test[2].data, test[2].data_len); in main() 146 test[i].key, test[i].key_len, in main() 147 test[i].data, test[i].data_len, in main() 150 if (strcmp(p,(char *)test[i].digest) != 0) in main() 153 printf("got %s instead of %s\n",p,test[i].digest); in main()
|
| /onnv-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\n"); [all …]
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Test/ |
| H A D | Harness.pm | 490 my %test = ( 511 if ($test{max} and $test{skipped} + $test{bonus}) { 513 push(@msg, "$test{skipped}/$test{max} skipped: $test{skip_reason}") 514 if $test{skipped}; 515 push(@msg, "$test{bonus}/$test{max} unexpectedly succeeded") 516 if $test{bonus}; 517 print "$test{ml}ok\n ".join(', ', @msg)."\n"; 518 } elsif ($test{max}) { 519 print "$test{ml}ok\n"; 520 } elsif (defined $test{skip_all} and length $test{skip_all}) { [all …]
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/ |
| H A D | forgive.t | 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++; 61 print (($@ eq '')?"ok $test\n":"not ok $test\n"); $test++; 64 print ((defined $ret)?"ok $test\n":"not ok $test\n"); $test++; 65 print (($ret->[0] eq 'foo')?"ok $test\n":"not ok $test\n"); $test++; 66 print (($ret->[2] eq 'bar')?"ok $test\n":"not ok $test\n"); $test++; 67 print ((ref $ret->[1] eq 'SCALAR')?"ok $test\n":"not ok $test\n"); $test++;
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/NEXT/t/ |
| H A D | unseen.t | 16 sub test { ::ok(++$order==1,"test A"); $_[0]->NEXT::UNSEEN::test; 1} 20 sub test { ::ok(++$order==2,"test B"); $_[0]->NEXT::UNSEEN::test; 1} 24 sub test { ::ok(++$order==4,"test C"); $_[0]->NEXT::UNSEEN::test; 1} 28 sub test { ::ok(++$order==3,"test D"); $_[0]->NEXT::UNSEEN::test; 1} 36 eval{ $foo->test } 42 sub test { 43 $seen++ ? ::fail("Can't visit inherited test twice") 45 shift->NEXT::UNSEEN::test; 54 Diamond::Top->test;
|
| H A D | actuns.t | 16 sub test { ::ok(++$order==1,"test A"); $_[0]->NEXT::UNSEEN::ACTUAL::test;} 20 sub test { ::ok(++$order==2,"test B"); $_[0]->NEXT::ACTUAL::UNSEEN::test;} 24 sub test { ::ok(++$order==4,"test C"); $_[0]->NEXT::UNSEEN::ACTUAL::test;} 28 sub test { ::ok(++$order==3,"test D"); $_[0]->NEXT::ACTUAL::UNSEEN::test;} 36 eval{ $foo->test }
|
| H A D | actual.t | 16 sub test { ++$order; ::ok($order==1,"test A"); $_[0]->NEXT::ACTUAL::test;} 20 sub test { ++$order; ::ok($order==2,"test B"); $_[0]->NEXT::ACTUAL::test;} 24 sub test { 25 ++$order; ::ok($order==4||$order==6,"test C"); 26 $_[0]->NEXT::ACTUAL::test; 31 sub test { 32 ++$order; ::ok($order==3||$order==5||$order==7||$order==8,"test D"); 33 $_[0]->NEXT::ACTUAL::test; 42 eval{ $foo->test }
|
| /onnv-gate/usr/src/lib/libsqlite/test/ |
| H A D | memleak.test | 16 # $Id: memleak.test,v 1.3 2004/02/12 18:46:39 drh Exp $ 33 # each round of the test. This number should be constant. If it 39 all.test 40 quick.test 41 malloc.test 42 misuse.test 43 memleak.test 44 btree2.test 45 trans.test 49 attach.test \ [all …]
|
| H A D | quick.test | 16 # $Id: quick.test,v 1.6 2004/02/11 02:18:07 drh Exp $ 25 all.test 26 quick.test 27 btree2.test 28 malloc.test 29 memleak.test 30 misuse.test 35 attach.test \ 36 attach2.test \ 37 auth.test \ [all …]
|
| /onnv-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 $0x08, %dl [all …]
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Math/ |
| H A D | Complex.t | 78 print "# $test Re(z) = ",$z->Re(), " Im(z) = ", $z->Im(), " z = $z\n"; 81 push(@script, qq(print "ok $test\\n"}\n)); 88 print "# $test Re(z) = ",$z->Re(), " Im(z) = ", $z->Im(), " z = $z\n"; 94 push(@script, qq(print "ok $test\\n"}\n)); 101 print "# $test Re(z) = ",$z->Re(), " Im(z) = ", $z->Im(), " z = $z\n"; 107 push(@script, qq(print "ok $test\\n"}\n)); 131 print "# $test op = $op divbyzero? \$bad...\n"; 134 push(@script, qq(print "ok $test\\n";\n)); 146 print "# $test op = $op logofzero? \$bad...\n"; 149 push(@script, qq(print "ok $test\\n";\n)); [all …]
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Devel/DProf/t/ |
| H A D | DProf.t | 45 my $test = shift; 51 open( R, "$perl \"$opt_d\" $test |" ) || warn "$0: Can't run. $!\n"; 66 my $test = shift; 68 my $command = $perl.' "-I../lib" "-I./lib/dprof" '.$test; 78 $test = shift @tests; 79 $test =~ s/\.$// if $^O eq 'VMS'; 80 if( $test =~ /_t$/i ){ 81 print "# $test" . '.' x (20 - length $test); 82 profile $test; 85 verify $test;
|
| /onnv-gate/usr/src/grub/grub-0.97/ |
| H A D | configure.ac | 37 if test "x$enable_maintainer_mode" = xyes; then 39 if test -z "$PERL"; then 45 if test "x$CFLAGS" = x; then 49 if test "x$host_cpu" = xx86_64; then 69 if test "x$with_binutils" != x; then 79 if test "x$ac_cv_prog_gcc" = xyes; then 80 if test "x$default_CFLAGS" = xyes; then 84 if test "x$with_binutils" != x; then 95 if test "x$size_flag" = xyes; then 112 if test "x$no_stack_protector_flag" = xyes; then [all …]
|