Home
last modified time | relevance | path

Searched refs:tests (Results 1 – 25 of 985) sorted by relevance

12345678910>>...40

/mirbsd/src/gnu/usr.bin/perl/t/
Dharness48 my @tests = ();
69 @tests = map(glob($_),@ARGV);
72 @tests = @ARGV;
75 unless (@tests) {
76 push @tests, <base/*.t>;
77 push @tests, <comp/*.t>;
78 push @tests, <cmd/*.t>;
79 push @tests, <run/*.t>;
80 push @tests, <io/*.t>;
81 push @tests, <op/*.t>;
[all …]
DREADME6 To add new tests, just look at the current tests and do likewise.
8 in most tests, except in the most basic ones.
16 If you know that Perl is basically working but expect that some tests
20 This method pinpoints failed tests automatically.
22 If you come up with new tests, please send them to perlbug@perl.org.
26 extensions to have been built. TEST will abort if any tests in the
/mirbsd/src/gnu/usr.bin/perl/lib/Test/Harness/t/
Dtest-harness.t43 tests => 1,
59 tests => 1,
77 tests => 1,
93 tests => 1,
111 tests => 1,
127 tests => 1,
143 tests => 1,
159 tests => 1,
176 tests => 1,
194 tests => 1,
[all …]
/mirbsd/src/lib/libc/regex/test/
Dsplit.c220 } tests[] = { variable
293 for (n = 0; tests[n].str != NULL; n++) { in regress()
294 (void) strlcpy(buf, tests[n].str, sizeof (buf)); in regress()
296 nf = split(buf, fields, RNF, tests[n].seps); in regress()
298 if (nf != tests[n].nf) { in regress()
300 tests[n].str, tests[n].seps, nf, tests[n].nf); in regress()
310 if (strcmp(f, tests[n].fi[i]) != 0) { in regress()
312 tests[n].str, tests[n].seps, in regress()
313 i, fields[i], tests[n].fi[i]); in regress()
DMakefile14 regress: ${PROG} ${.CURDIR}/tests
15 ./${PROG} <${.CURDIR}/tests
16 ./${PROG} -el <${.CURDIR}/tests
17 ./${PROG} -er <${.CURDIR}/tests
/mirbsd/src/gnu/usr.bin/perl/lib/Test/t/
Dtodo.t6 ### seeing the todo tests, otherwise you get people sending in bug reports
7 ### about Test.pm having "UNEXPECTEDLY SUCCEEDED" tests.
12 my $tests = 5;
13 plan tests => $tests, todo => [2..$tests];
16 # tests to go to the output file
/mirbsd/src/gnu/usr.bin/perl/lib/Test/
DTutorial.pod3 Test::Tutorial - A tutorial about writing really basic tests
10 me write tests!>
17 Is this you? Is writing tests right up there with writing
55 use Test::Simple tests => 1;
66 use Test::Simple tests => 2;
76 # Looks like you failed 1 tests of 2.
78 C<1..2> "I'm going to run two tests." This number is used to ensure
80 tests. C<ok 1> "The first test passed." C<not ok 2> "The second test
82 your tests.
100 use Test::Simple tests => 2;
[all …]
/mirbsd/src/gnu/usr.bin/perl/lib/Time/
DLocal.t67 my $tests = (@time * 12);
68 $tests += @neg_time * 12;
69 $tests += @bad_time;
70 $tests += 8;
71 $tests += 2 if $ENV{PERL_CORE};
72 $tests += 5 if $ENV{MAINTAINER};
74 plan tests => $tests;
/mirbsd/src/gnu/usr.bin/perl/Porting/
Dvalgrindpp.pl14 tests => 0,
99 $ne{$e}{$nf}{tests}{$k} += $v;
115 $nl{$l}{$ns}{tests}{$k} += $v;
153 format_tests($data->{tests}), "\n";
167 format_tests($data->{tests}), "\n\n";
173 my $tests = shift;
176 if ($opt{tests}) {
177 return wrap($indent, $indent, join ', ', sort keys %$tests);
180 my $count = keys %$tests;
/mirbsd/src/gnu/usr.bin/perl/lib/Test/Simple/t/
Dplan_bad.t54 ok !eval { plan tests => 'no_plan'; };
59 ok !eval { plan tests => @foo };
62 ok !eval { plan tests => 0 };
63 ok !eval { plan tests => -1 };
64 ok !eval { plan tests => '' };
/mirbsd/src/gnu/usr.bin/perl/lib/Test/Harness/bin/
Dprove78 my @tests;
80 push( @tests, -d $_ ? all_in( $_ ) : $_ ) for map { glob } @ARGV;
82 if ( @tests ) {
83 shuffle(@tests) if $shuffle;
85 print join( "\n", @tests, "" );
87 print "# ", scalar @tests, " tests to run\n" if $Test::Harness::debug;
88 runtests(@tests);
/mirbsd/src/gnu/usr.bin/perl/lib/File/Spec/t/
DSpec.t48 @tests = (
603 push @tests, [ "FakeWin32->rel2abs('D:foo.txt')", 'D:\\alpha\\beta\\foo.txt' ];
607 plan tests => scalar @tests;
637 for ( @tests ) {
/mirbsd/src/gnu/usr.bin/perl/lib/Test/Harness/
DTAP.pod25 more tests....
50 The plan tells how many tests will be run, or how many tests have
59 means you plan on running 10 tests. This is a safeguard in case your test
103 has five tests. The sixth is missing. Test::Harness will generate
105 FAILED tests 1, 3, 6
106 Failed 3/6 tests, 50.00% okay
148 =head2 TODO tests
158 These tests represent a feature to be implemented or a bug to be fixed
165 =head2 Skipping tests
169 tests is included in the generated output. The harness should report
[all …]
DChanges23 * If we go over 100,000 tests, it used to print out a warning for
66 * Fixed incorrect "confused by tests in wrong order" error in 2.47_02.
70 * Test directives for skip tests used to be anything that matches
82 Several of the Test::Harness tests now fail on VMS with the
95 how tests are run. It also adds these messages by default.
179 * prove -v now sets TEST_VERBOSE in case your tests rely on them.
201 * All tests now do their use_ok() in a BEGIN block. Some of the
213 harness runs the tests. This is different from HARNESS_VERBOSE,
238 Schwern for the patch and the tests.
249 to run the tests as.
[all …]
/mirbsd/src/lib/libssl/src/crypto/evp/
Devptests.txt4 # SHA(1) tests (from shatest.c)
7 # MD5 tests (from md5test.c)
16 # AES 128 ECB tests (from FIPS-197 test vectors, encrypt)
20 # AES 192 ECB tests (from FIPS-197 test vectors, encrypt)
24 # AES 256 ECB tests (from FIPS-197 test vectors, encrypt)
28 # AES 128 ECB tests (from NIST test vectors, encrypt)
32 # AES 128 ECB tests (from NIST test vectors, decrypt)
36 # AES 192 ECB tests (from NIST test vectors, decrypt)
40 # AES 256 ECB tests (from NIST test vectors, decrypt)
44 # AES 128 CBC tests (from NIST test vectors, encrypt)
[all …]
/mirbsd/src/gnu/usr.bin/perl/ext/Devel/PPPort/
Dmktests.PL36 if (exists $spec->{tests}) {
37 exists $spec->{OPTIONS}{tests} &&
38 exists $spec->{OPTIONS}{tests}{plan}
86 plan(tests => __PLAN__);
/mirbsd/src/gnu/usr.bin/perl/lib/Tie/
DRefHash.t43 my @tests = standard_hash_tests();
45 my @ordinary_results = runtests(\@tests, undef);
47 my @tied_results = runtests(\@tests, $class);
63 "failed for $class: $tests[$i]\n",
144 @tests = ();
197 my ($tests, $class) = @_;
209 foreach (@$tests) {
/mirbsd/src/gnu/usr.bin/perl/t/op/
Dpow.t22 my $tests;
23 $tests += $_->[1] foreach @pow;
25 plan tests => 13 + $bits_in_uv + $tests;
/mirbsd/src/gnu/usr.bin/perl/lib/Memoize/
DREADME15 There's a very small chance that the tests in speed.t and
17 load conditions. If the tests there fail, rerun them and see if the
20 If the tests work,
24 If not, please send me a report that mentions which tests failed.
38 I got so absorbed in integrating it that I wrote some tests
76 Slow tests speeded up. More test file improvements.
79 never was a bug. I put in tests for it anyway.
/mirbsd/src/gnu/usr.bin/perl/lib/Text/TabsWrap/t/
Dtabs.t8 @tests = (split(/\nEND\n/s, <<DONE));
95 $testcount .= @tests/2;
103 while (@tests) {
104 my $in = shift(@tests);
105 my $out = shift(@tests);
Dfill.t10 @tests = (split(/\nEND\n/s, <<DONE));
59 print "1..", @tests/2, "\n";
66 while (@tests) {
67 my $in = shift(@tests);
68 my $out = shift(@tests);
/mirbsd/src/gnu/usr.bin/perl/ext/Devel/DProf/t/
DDProf.t27 @tests = @ARGV ? @ARGV : sort (<lib/dprof/*_t>, <lib/dprof/*_v>); # glob-sort, for OS/2
34 print "tests: @tests\n";
77 while( @tests ){
78 $test = shift @tests;
/mirbsd/src/gnu/usr.bin/perl/ext/Encode/t/
Dat-tw.t21 use Test::More tests => 17;
28 # Since JP.t already tests basic file IO, we will just focus on
77 my ($title, $tests) = @_;
78 my $utf = delete $tests->{'utf'};
81 foreach my $enc (sort keys %{$tests}) {
82 my $str = $tests->{$enc};
Dat-cn.t19 use Test::More tests => 29;
26 # Since JP.t already tests basic file IO, we will just focus on
126 my ($title, $tests) = @_;
127 my $utf = delete $tests->{'utf'};
130 foreach my $enc (sort keys %{$tests}) {
131 my $str = $tests->{$enc};
/mirbsd/src/gnu/usr.bin/cvs/lib/
Dfilenamecat.c97 static char const *const tests[][3] = in main() local
113 for (i = 0; i < sizeof tests / sizeof tests[0]; i++) in main()
116 char const *const *t = tests[i]; in main()

12345678910>>...40