| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/lib/ |
| H A D | 1_compile.t | 44 my $todo = '';
45 $todo = "# TODO $module needs porting on $^O" if $module eq 'ByteLoader' && $^O eq 'VMS';
47 print "ok $test_num $todo\n";
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
| H A D | anonsub.t | 59 my ($code,$todo) = @_;
60 $todo = '' unless defined $todo;
63 print "ok ", ++$i, " - '$code' is illegal$todo\n";
65 print "not ok ", ++$i, " - '$code' is illegal$todo\n# GOT: $@";
|
| H A D | magic.t | 15 my($ok, $info, $todo) = @_;
19 $todo ? " # TODO $todo" : '';
129 my $todo = ($^O eq 'os2' ? ' # TODO: EMX v0.9d_fix4 bug: wrong nibble? ' : '');
130 print $? & 0xFF ? "ok 6$todo\n" : "not ok 6$todo\n";
|
| /osnet-11/usr/src/lib/libresolv2/common/irs/ |
| H A D | irp.c | 523 int i, todo; local
532 todo = strlen(buffer);
534 if (todo > (int)sizeof(buffer) - 3) {
539 todo = strlen(buffer);
541 while (todo > 0) {
542 i = write(pvt->fdCxn, buffer + pos, todo);
546 fwrite(buffer + pos, sizeof (char), todo, stderr);
554 todo -= i;
|
| /osnet-11/usr/src/lib/libshell/common/sh/ |
| H A D | expand.c | 265 int path_generate(Shell_t *shp,struct argnod *todo, struct argnod **arghead) argument
267 assume todo!=0;
281 todo->argchn.ap = 0;
283 apin = ap = todo;
284 todo = ap->argchn.ap;
385 if(todo)
432 /* generate each pattern and put on the todo list */
455 ap->argchn.ap = todo;
459 todo = ap = (struct argnod*)stakfreeze(1);
|
| /osnet-11/usr/src/lib/libast/common/misc/ |
| H A D | fts.c | 47 FTSENT* todo; /* todo list */ \
672 * order fts->todo if fts->comparf != 0
684 for (f = fts->todo; f; f = f->fts_link)
687 fts->todo = top;
791 fts->todo = toplist(fts, v);
794 fts->todo = toplist(fts, pathnames);
796 if (!fts->todo || fts->todo->fts_info == FTS_NS && !fts->todo
[all...] |
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/POSIX/t/ |
| H A D | posix.t | 84 my $todo = $^O eq 'netbsd' && $Config{osvers}=~/^1\.6/;
86 if (!$todo) {
94 $todo = 1 if ($^O eq 'freebsd')
98 $todo ? $why_todo : '';
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Harness/ |
| H A D | Straps.pm | 130 todo => 0,
188 $result{type} = 'todo' if $self->{todo}{$result{number}};
190 if( $result{type} eq 'todo' ) {
191 $totals->{todo}++;
506 are todo in C<< $strap->{todo} >> and if the whole test was skipped
514 (?: \s+ todo \s+ ([\d \t]+) )? # optional todo set
526 my($todo,
[all...] |
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Harness/t/ |
| H A D | strap.t | 66 ok( (!grep { exists $strap->{$_} } qw(max todo skip_all)),
67 " max, todo and skip_all are not set" );
71 my @attribs = qw(max skip_all todo);
87 '1..10 todo 2 4 10' => { max => 10,
88 'todo' => { 2 => 1,
93 '1..10 todo' => { max => 10 },
94 '1..192 todo 4 2 13 192 # Skip skip skip because' =>
96 'todo' => { 4 => 1,
143 type => 'todo',
150 type => 'todo',
[all...] |
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/ |
| H A D | Builder.pm | 299 my $todo = $self->todo($pack);
307 @$result{ 'ok', 'actual_ok' } = ( ( $todo ? 1 : 0 ), 0 );
325 if( $todo ) {
326 my $what_todo = $todo;
329 $result->{type} = 'todo';
342 my $msg = $todo ? "Failed (TODO)" : "Failed";
908 my $fh = $self->todo ? $self->todo_output : $self->failure_output;
972 Where diagnostics about todo test failures and diag() should go.
1130 printed 'ok' or 'not ok'. This is for examining the result of 'todo'
1186 sub todo { subroutine
[all...] |
| H A D | More.pm | 26 skip todo todo_skip
747 but will work in the future (a todo test).
749 For more details on the mechanics of skip and todo tests see
753 block of tests which can be skipped over or made todo. It's best if I
839 With a todo block, the tests inside are expected to fail. Test::More
841 they are "todo". Test::Harness will interpret failures as being ok.
843 You then know the thing you had todo is done and can remove the
846 The nice part about todo tests, as opposed to simply commenting out a
847 block of tests, is it's like having a programmatic todo list. You know
851 Once a todo tes
[all...] |
| H A D | Harness.pm | 183 C<not ok> or C<not ok NUMBER>, it is counted as a todo test. The text
193 Alternatively, you can specify a list of what tests are todo as part
196 1..23 todo 5 12 23
206 B<not> expected to succeed. Should a todo test begin succeeding,
412 bonus Number of individual todo tests unexpectedly passed
416 todo Number of individual todo tests
461 todo => 0,
505 $tot{todo} += $results{todo};
[all...] |
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
| H A D | Test.pm | 11 $ONFAIL %todo %history $planned @FAILDETAIL) #private-ish
16 %todo = ();
50 BEGIN { plan tests => 14, todo => [3,4] }
61 ok(0); # ok, expected failure (see todo list, above)
129 =item C<todo =E<gt> [I<1,5,14>]>
165 elsif ($k eq 'todo' or
166 $k eq 'failok') { for (@$v) { $todo{$_}=1; }; }
173 my @todo = sort { $a <=> $b } keys %todo;
174 if (@todo) {
[all...] |
| H A D | perl5db.pl | 7665 ref reftut run sec style sub syn thrtut tie toc todo toot tootc
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/ |
| H A D | TEST | 336 if (/^1\.\.([0-9]+)( todo ([\d ]+))?/) {
338 %todo = map { $_ => 1 } split / /, $3 if $3;
359 $istodo = 1 if $todo{$num};
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/B/ |
| H A D | Xref.pm | 110 my @todo = (); # List of CVs that need processing
215 while (@todo) {
216 xref_cv(shift @todo);
321 push(@todo, $cv);
|
| H A D | Concise.pm | 355 my @todo = ([$top, \@lines]);
356 while (@todo and my($op, $targ) = @{shift @todo}) {
364 push @todo, [$op->other, $ar];
368 push @todo, [$op->pmreplstart, $ar];
|
| H A D | Deparse.pm | 298 sub todo { subroutine
493 $self->todo($cv, 0);
498 $self->todo($cv, 1);
633 $self->todo($block, 0);
|
| /osnet-11/usr/src/cmd/perl/5.8.4/utils/port/ |
| H A D | MapFiles | 208 ($f =~ m{^todo}i && $p !~ m{^t/|/t/|/t$})) {
|
| /osnet-11/usr/src/lib/storage/liba5k/common/ |
| H A D | lhot.c | 399 l_encl_status_page_funcs(int func, char *code, int todo, char *ses_path, argument
459 switch (todo) {
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ |
| H A D | pp_pack.c | 2609 I32 todo;
2612 todo = len;
2614 todo = fromlen;
2615 doencodes(cat, aptr, todo);
2616 fromlen -= todo;
2617 aptr += todo;
|
| H A D | util.c | 2550 register I32 todo; local
2560 for (todo = len; todo > 0; todo--) {
|
| H A D | sv.c | 7085 char todo[PERL_UCHAR_MAX+1]; local
7102 Zero(todo, 256, char);
7110 todo[i] = 1;
7117 if (!todo[(U8)*HeKEY(entry)])
8604 /* XXX: todo, support specified precision parameter */
10293 /* XXXXX todo */
|