Searched refs:try (Results 1 - 25 of 122) sorted by relevance

12345

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/File/t/
H A D29_downcopy.t44 # 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 D26_twrite.t70 # 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 D28_mtwrite.t59 # 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 D27_iwrite.t47 # 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 D29a_upcopy.t28 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 Dt-match.c19 #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 Dbigfltpm.inc33 $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 Dupgrade.inc72 $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 Dbigintpm.inc62 $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 Dbigintpm.t18 use vars qw ($scale $class $try $x $y $f @args $ans $ans1 $ans1_str $setup $CL);
H A Dcalling.t69 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 Dscript.t17 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 Dmultiline.t11 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 Dterm.t44 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 Dbigratpm.inc33 $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 DSoundex.t40 ($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 DLanginfo.t58 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 Dmvcur.c125 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 Drunenv.t82 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 Dmvcur.c126 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 Dmktemp.c108 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 Dbigintpl.t20 $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 Dlock.s35 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 Darith.t12 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 DGuess.pm111 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...]

Completed in 88 milliseconds

12345