/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/File/t/ |
H A D | 29_downcopy.t | 44 # try($pos, $old, $new) means to run a test where the data starts at 47 try( 9659, 6635, 6691); # old=x , new=x ; old < new 48 try( 8605, 2394, 2394); # old=x , new=x ; old = new 49 try( 9768, 1361, 664); # old=x , new=x ; old > new 50 try( 9955, 6429, 6429); # old=x> , new=x ; old = new 51 try(10550, 5834, 4123); # old=x> , new=x ; old > new 52 try(14580, 6158, 851); # old=x><x , new=x ; old > new 53 try(13442, 11134, 1572); # old=x><x> , new=x ; old > new 54 try( 8394, 0, 5742); # old=0 , new=x ; old < new 55 try( 819 238 sub try { subroutine [all...] |
H A D | 26_twrite.t | 70 # try($pos, $old, $new) means to run a test where the data starts at 73 try( 9659, 6635, 6691); # old=x , new=x ; old < new 74 try( 8605, 2394, 2394); # old=x , new=x ; old = new 75 try( 9768, 1361, 664); # old=x , new=x ; old > new 76 try( 9955, 6429, 6429); # old=x> , new=x ; old = new 77 try(10550, 5834, 4123); # old=x> , new=x ; old > new 78 try(14580, 6158, 851); # old=x><x , new=x ; old > new 79 try(13442, 11134, 1572); # old=x><x> , new=x ; old > new 80 try( 8394, 0, 5742); # old=0 , new=x ; old < new 81 try( 819 264 sub try { subroutine [all...] |
H A D | 28_mtwrite.t | 59 # try($pos, $old, $new) means to run a test where the area being 62 try( 8605, 2394, 2394); # old=x , new=x ; old = new 63 try( 9768, 1361, 664); # old=x , new=x ; old > new 64 try( 9955, 6429, 6429); # old=x> , new=x ; old = new 65 try(10550, 5834, 4123); # old=x> , new=x ; old > new 66 try(14580, 6158, 851); # old=x><x , new=x ; old > new 67 try(13442, 11134, 1572); # old=x><x> , new=x ; old > new 68 try( 8192, 514, 514); # old=<x , new=<x ; old = new 69 try( 8192, 2196, 858); # old=<x , new=<x ; old > new 70 try( 819 198 sub try { subroutine [all...] |
H A D | 27_iwrite.t | 47 # try($pos, $old, $new) means to run a test where the area being 50 try( 8605, 2394, 2394); # old=x , new=x ; old = new 51 try( 9768, 1361, 664); # old=x , new=x ; old > new 52 try( 9955, 6429, 6429); # old=x> , new=x ; old = new 53 try(10550, 5834, 4123); # old=x> , new=x ; old > new 54 try(14580, 6158, 851); # old=x><x , new=x ; old > new 55 try(13442, 11134, 1572); # old=x><x> , new=x ; old > new 56 try( 8192, 514, 514); # old=<x , new=<x ; old = new 57 try( 8192, 2196, 858); # old=<x , new=<x ; old > new 58 try( 819 178 sub try { subroutine [all...] |
H A D | 29a_upcopy.t | 28 try(0, 0, 0); 29 try(0, 0, 10); 30 try(0, 0, 100); 31 try(0, 0, 1000); 32 try(0, 0, 10000); 33 try(0, 0, 20000); 36 try(100, 100, 0); 37 try(100, 100, 10); 38 try(100, 100, 100); 39 try(10 99 sub try { subroutine [all...] |
/osnet-11/usr/src/cmd/sendmail/libsm/ |
H A D | t-match.c | 19 #define try(str, pat, want) \ macro 35 try("foo", "foo", true); 36 try("foo", "bar", false); 37 try("foo[bar", "foo[bar", true); 38 try("foo[bar]", "foo[bar]", false); 39 try("foob", "foo[bar]", true); 40 try("a-b", "a[]-]b", true); 41 try("abcde", "a*e", true); 42 try("[", "[[]", true); 43 try(" [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Math/BigInt/t/ |
H A D | bigfltpm.inc | 33 $try = "\$x = $class->new(\"$args[0]\");"; 36 $try .= "\$x;"; 38 $try .= "\$x->finf('$args[1]');"; 40 $try .= "\$x->is_inf('$args[1]');"; 42 $try .= "\$x->bone('$args[1]');"; 44 $try .= "\$x->accuracy($args[1]); \$x->precision($args[2]);"; 45 $try .= '$x->fstr();'; 48 $try .= '($a,$b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr();'; 49 $try .= '"$a $b";'; 52 $try [all...] |
H A D | upgrade.inc | 72 $try = "\$x = $class->new(\"$args[0]\");"; 75 $try = "\$x = $class->bnorm(\"$args[0]\");"; 78 $try .= "\$x->$f();"; 80 $try .= '$x->as_hex();'; 82 $try .= '$x->as_bin();'; 84 $try .= "\$x->is_inf('$args[1]');"; 86 $try .= "\$x->binf('$args[1]');"; 88 $try .= "\$x->bone('$args[1]');"; 91 $try .= "\$x->$f();"; 93 $try [all...] |
H A D | bigintpm.inc | 62 $try = "\$x = $class->new(\"$args[0]\");"; 65 $try = "\$x = $class->bnorm(\"$args[0]\");"; 68 $try .= "\$x->$f() || 0;"; 70 $try .= "\$x->is_inf('$args[1]');"; 72 $try .= "\$x->binf('$args[1]');"; 74 $try .= "\$x->bone('$args[1]');"; 77 $try .= "\$x->$f();"; 79 $try .= "\$x->$f();"; 82 $try .= '$x = $x->exponent()->bstr();'; 85 $try [all...] |
H A D | bigintpm.t | 18 use vars qw ($scale $class $try $x $y $f @args $ans $ans1 $ans1_str $setup $CL);
|
H A D | calling.t | 69 my ($func,@args,$ans,$rc,$class,$try); 85 $try = "'$args[0]'"; # quote it 86 $try = $args[0] if $args[0] =~ /'/; # already quoted 87 $try = '' if $args[0] eq ''; # undef, no argument 88 $try = "$class\->$func($try);"; 89 $rc = eval $try; 90 print "# Tried: '$try'\n" if !ok ($rc, $ans); 100 #$try = "use $class ($version.'1');"; 101 #$try [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/ |
H A D | script.t | 17 open(try,">Comp.script") || (die "Can't open temp file."); 18 print try 'print "ok\n";'; print try "\n"; 19 close try or die "Could not close: $!";
|
H A D | multiline.t | 11 open(TRY,'>Comp.try') || (die "Can't open temp file."); 31 open(TRY,'Comp.try') || (die "Can't reopen temp file."); 44 $out = (($^O eq 'MSWin32') || $^O eq 'NetWare' || $^O eq 'VMS') ? `type Comp.try` 45 : ($^O eq 'MacOS') ? `catenate Comp.try` 46 : `cat Comp.try`; 51 unlink 'Comp.try' || `/bin/rm -f Comp.try`;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/base/ |
H A D | term.t | 44 open(try,"Dev:Null") || (die "Can't open /dev/null."); 46 open(try, "/dev/null") || open(try,"nla0:") || (die "Can't open /dev/null."); 49 if (<try> eq '') { 57 open(try, "harness") || (die "Can't open harness."); 58 if (<try> ne '') {print "ok 7\n";} else {print "not ok 7\n";}
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Math/BigRat/t/ |
H A D | bigratpm.inc | 33 $try = "\$x = new $class \"$args[0]\";"; 36 $try .= "\$x;"; 39 $try .= "\$x->binf('$a');"; 41 $try .= "\$x->is_inf('$args[1]');"; 43 $try .= "\$x->bone('$args[1]');"; 45 $try .= "\$x->accuracy($args[1]); \$x->precision($args[2]);"; 46 $try .= '$x->bstr();'; 49 $try .= '($a,$b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr();'; 50 $try .= '"$a $b";'; 53 $try [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Text/ |
H A D | Soundex.t | 40 ($try = $_) =~ s/^eval\s+//; 42 eval ($try); 47 print "# eval '$try' returned $@"; 54 $try = "\@expect = $out; \@got = &soundex $in;"; 55 eval ($try); 85 $try = "\$expect = $out; \$got = &soundex ($in);"; 86 eval ($try);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/I18N/Langinfo/t/ |
H A D | Langinfo.t | 58 my $try = $want[$i-1]; 59 eval { I18N::Langinfo->import($try) }; 61 my $got = langinfo(&$try); 62 if (ref $want{$try} && $got =~ $want{$try} || $got eq $want{$try}) { 63 print qq[ok $i - $try is "$got"\n]; 65 print qq[not ok $i - $try is "$got" not "$want{$try}"\n]; 68 print qq[ok $i - Skip: $try no [all...] |
/osnet-11/usr/src/lib/libxcurses2/src/libc/xcurses/ |
H A D | mvcur.c | 125 struct Sequence *try = &seqB; local 141 /* try out direct row addressing */ 145 /* try out parameterized up or down motion */ 146 zero_seq(try); 147 add_op(try, parm_cursor, dist, 0); 148 Make_seq_best(best, try); 150 /* try getting there one step at a time... */ 151 zero_seq(try); 152 add_op(try, one_step, dist, 0); 153 Make_seq_best(best, try); 179 struct Sequence seqA, seqB, *best, *try; local 285 struct Sequence *try = &seqB; local 368 struct Sequence *try = &seqB; /* next try */ local [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/run/ |
H A D | runenv.t | 82 sub try { subroutine 98 try({PERL5OPT => '-w'}, ['-e', 'print $::x'], 102 try({PERL5OPT => '-Mstrict'}, ['-e', 'print $::x'], 105 try({PERL5OPT => '-Mstrict'}, ['-e', 'print $x'], 110 try({PERL5OPT => '-Mstrict -w'}, ['-e', 'print $x'], 115 try({PERL5OPT => '-w -Mstrict'}, ['-e', 'print $::x'], 124 try({PERL5OPT => '-w -Mstrict'}, ['-e', 'print $::x'], 132 try({PERL5OPT => '-MExporter'}, ['-e0'], 137 try({PERL5OPT => '-MExporter -MExporter'}, ['-e0'], 141 try({PERL5OP [all...] |
/osnet-11/usr/src/lib/libxcurses/src/libc/xcurses/ |
H A D | mvcur.c | 126 struct Sequence* try = &seqB; local 142 /* try out direct row addressing */ 146 /* try out parameterized up or down motion */ 147 zero_seq(try); 148 add_op(try, parm_cursor, dist, 0); 149 Make_seq_best(best, try); 151 /* try getting there one step at a time... */ 152 zero_seq(try); 153 add_op(try, one_step, dist, 0); 154 Make_seq_best(best, try); 182 struct Sequence seqA, seqB, *best, *try; local 287 struct Sequence* try = &seqB; local 378 struct Sequence* try = &seqB; /* next try */ local [all...] |
/osnet-11/usr/src/lib/libc/port/gen/ |
H A D | mktemp.c | 108 int try; local 191 /* we can try sequence numbers in the range 0 <= try < max_try */ 196 try = previous_try; 199 uint64_t num = ((uint64_t)pid << tryshift) + (uint64_t)try; 212 previous_try = try + 1; 218 if (++try == max_try) 219 try = 0; 220 if (try == previous_try)
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
H A D | bigintpl.t | 20 $try = "$f('" . join("','", @args) . "');"; 21 if (($ans1 = eval($try)) eq $ans) { 25 print "# '$try' expected: '$ans' got: '$ans1'\n";
|
/osnet-11/usr/src/lib/libc/sparc/gen/ |
H A D | lock.s | 35 ldstub [%o0], %o1 ! try to set lock, get value in %o1
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
H A D | arith.t | 12 sub try ($$) { subroutine 46 try 5, abs( 13e21 % 4e21 - 1e21) < $limit; 47 try 6, abs(-13e21 % 4e21 - 3e21) < $limit; 48 try 7, abs( 13e21 % -4e21 - -3e21) < $limit; 49 try 8, abs(-13e21 % -4e21 - -1e21) < $limit; 277 try 133, abs($t1000 -1000 * $t) <= 2000;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/lib/Encode/ |
H A D | Guess.pm | 111 my %try = %{$obj->{Suspects}}; 114 $try{$e->name} = $e; 121 my @keys = keys %try; 122 delete @try{qw/utf8 ascii/}; 124 ref($try{$k}) eq 'Encode::XS' and delete $try{$k}; 127 my %ok = %try; 128 # warn join(",", keys %try); 129 for my $k (keys %try){ 131 $try{ [all...] |