| /openbsd-src/gnu/usr.bin/perl/cpan/Module-Metadata/t/ |
| H A D | extract-version.t | 25 package Simple; 33 package Simple; 39 all_versions => { Simple => '1.23' }, 42 package Simple; 48 all_versions => { Simple => '1.23' }, 51 package Simple; 59 package Simple; 63 all_versions => { Simple => '1.23' }, 68 package Simple; 73 all_versions => { Simple [all...] |
| H A D | metadata.t | 42 my $distname = 'Simple' . $test_num++; 82 my $file = File::Spec->catfile('lib', 'Simple.pm'); 83 my ($dist_name, $dist_dir) = new_dist(files => { $file => "package Simple;\n" }); 101 'Simple', inc => [ 'lib', @INC ] ); 108 my $file = File::Spec->catfile('lib', 'Simple.pm'); 110 package Simple; 112 package Error::Simple; 114 package Simple; 124 # Module 'Simple.pm' does not contain package 'Simple'; 126 my $file = File::Spec->catfile('lib', 'Simple.pm'); [all …]
|
| H A D | extract-package.t | 20 package => [ 'Simple' ], 22 package Simple; 27 package => [ 'Simple::Edward' ], 29 package Simple::Edward; 34 package => [ 'Simple::Edward::' ], 36 package Simple::Edward::; 41 package => [ "Simple'Edward" ], 43 package Simple'Edward; 48 package => [ "Simple'Edward::" ], 50 package Simple'Edwar [all...] |
| /openbsd-src/gnu/usr.bin/perl/cpan/Pod-Simple/t/ |
| H A D | fcodes_e.t | 12 #use Pod::Simple::Debug (6); 14 use Pod::Simple::DumpAsXML; 15 use Pod::Simple::XMLOutStream; 17 print "# Pod::Simple version $Pod::Simple::VERSION\n"; 29 &is( Pod::Simple::XMLOutStream->_out("=pod\n\n1E<lt>2\n"), 30 Pod::Simple::XMLOutStream->_out("=pod\n\n1<2") 32 &is( Pod::Simple::XMLOutStream->_out("=pod\n\n1E<gt>2\n"), 33 Pod::Simple::XMLOutStream->_out("=pod\n\n1>2") 35 &is( Pod::Simple [all...] |
| H A D | 00about.t | 12 Pod::Simple 13 Pod::Simple::BlackBox 14 Pod::Simple::Checker 15 Pod::Simple::DumpAsText 16 Pod::Simple::DumpAsXML 17 Pod::Simple::HTML 18 Pod::Simple::HTMLBatch 19 Pod::Simple::HTMLLegacy 20 Pod::Simple::LinkSection 21 Pod::Simple [all...] |
| H A D | heads.t | 5 #use Pod::Simple::Debug (6); 13 use Pod::Simple::DumpAsXML; 14 use Pod::Simple::XMLOutStream; 15 print "# Pod::Simple version $Pod::Simple::VERSION\n"; 18 print "# Simple tests for head1 - head6...\n"; 19 is( Pod::Simple::XMLOutStream->_out("\n=head1 Chacha\n\n"), 22 is( Pod::Simple::XMLOutStream->_out("\n=head2 Chacha\n\n"), 25 is( Pod::Simple::XMLOutStream->_out("\n=head3 Chacha\n\n"), 28 is( Pod::Simple [all...] |
| H A D | fcodes.t | 5 #use Pod::Simple::Debug (5); 12 use Pod::Simple::DumpAsXML; 13 use Pod::Simple::XMLOutStream; 14 print "# Pod::Simple version $Pod::Simple::VERSION\n"; 18 is( Pod::Simple::XMLOutStream->_out("=pod\n\nI<foo>\n"), 21 is( Pod::Simple::XMLOutStream->_out("=pod\n\nB< foo>\n"), 24 is( Pod::Simple::XMLOutStream->_out("=pod\n\nB<\tfoo>\n"), 27 is( Pod::Simple::XMLOutStream->_out("=pod\n\nB<\nfoo>\n"), 30 is( Pod::Simple [all...] |
| H A D | basic.t | 5 #use Pod::Simple::Debug (6); 7 require Pod::Simple::BlackBox; 10 require Pod::Simple; ok 1; 12 Pod::Simple->VERSION(.90); ok 1; 14 #print "# Pod::Simple version $Pod::Simple::VERSION\n"; 16 require Pod::Simple::DumpAsXML; ok 1; 18 require Pod::Simple::XMLOutStream; ok 1; 26 print "# Simple identity tests...\n"; 56 print "# Simple XMLificatio [all...] |
| H A D | verb_fmt.t | 6 #use Pod::Simple::Debug (6); 8 use Pod::Simple::DumpAsXML; 9 use Pod::Simple::XMLOutStream; 11 print "# Pod::Simple version $Pod::Simple::VERSION\n"; 13 sub e { Pod::Simple::DumpAsXML->_duo(\&without_vf, @_) } 14 sub ev { Pod::Simple::DumpAsXML->_duo(\&with_vf, @_) } 29 &is( Pod::Simple::XMLOutStream->_out(\&with_vf, 42 &is( Pod::Simple::XMLOutStream->_out(\&with_vf, 55 &is( Pod::Simple [all...] |
| H A D | chunking.t | 5 #use Pod::Simple::Debug (2); 13 use Pod::Simple::DumpAsXML; 14 use Pod::Simple::XMLOutStream; 15 print "# Pod::Simple version $Pod::Simple::VERSION\n"; 17 is( Pod::Simple::XMLOutStream->_out("=head1 =head1"), 21 is( Pod::Simple::XMLOutStream->_out("\n=head1 =head1"), 25 is( Pod::Simple::XMLOutStream->_out("\n=head1 =head1\n"), 29 is( Pod::Simple::XMLOutStream->_out("\n=head1 =head1\n\n"),
|
| H A D | cbacks.t | 6 #use Pod::Simple::Debug (\$d, 0); 8 use Pod::Simple::XMLOutStream; 9 use Pod::Simple::DumpAsXML; 10 use Pod::Simple::DumpAsText; 13 'Pod::Simple::XMLOutStream' 16 'Pod::Simple::DumpAsXML' 19 'Pod::Simple::DumpAsText' 60 print '# Got vs exp:\n# ', Pod::Simple::BlackBox::pretty($got), 61 "\n# ",Pod::Simple::BlackBox::pretty($exp),"\n"; 81 print '# Got vs exp:\n# ', Pod::Simple [all...] |
| H A D | closeys.t | 12 #use Pod::Simple::Debug (\$d,0); 13 #use Pod::Simple::Debug (10); 15 use Pod::Simple::DumpAsXML; 16 use Pod::Simple::XMLOutStream; 17 print "# Pod::Simple version $Pod::Simple::VERSION\n"; 24 local $Pod::Simple::XMLOutStream::SORT_ATTRS = 1;
|
| H A D | verbatim.t | 7 #use Pod::Simple::Debug (6); 9 use Pod::Simple::DumpAsXML; 10 use Pod::Simple::XMLOutStream; 11 print "# Pod::Simple version $Pod::Simple::VERSION\n"; 26 is( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n"), 29 is( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n quux\n"), 32 is( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\nquux\n"), 37 is( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n\n quux\n"), 40 is( Pod::Simple [all...] |
| H A D | items02.t | 13 #use Pod::Simple::Debug (\$d,0); 15 use Pod::Simple::DumpAsXML; 16 use Pod::Simple::XMLOutStream; 17 print "# Pod::Simple version $Pod::Simple::VERSION\n"; 19 my $x = 'Pod::Simple::XMLOutStream'; 23 $Pod::Simple::XMLOutStream::ATTR_PAD = ' '; 24 $Pod::Simple::XMLOutStream::SORT_ATTRS = 1; # for predictably testable output
|
| H A D | x_nixer.t | 6 #use Pod::Simple::Debug (\$d, 0); 8 use Pod::Simple::XMLOutStream; 9 use Pod::Simple::DumpAsXML; 12 $Pod::Simple::XMLOutStream::ATTR_PAD = ' '; 13 $Pod::Simple::XMLOutStream::SORT_ATTRS = 1; # for predictably testable output 17 is( Pod::Simple::XMLOutStream->_out("=pod\n\nZ<>F<C<Z<>fE<111>o> I<bar>> B<stuff X<thingZ<>>baz>\n"), 22 is( Pod::Simple::XMLOutStream->_out("=pod\n\nZ<>F<C<Z<>fE<111>o> I<bar>> B<stuff X<thingZ<>>baz>\n"), 36 is( Pod::Simple::DumpAsXML->_out( "=pod\n\nZ<>F<C<Z<>fE<111>o> I<bar>> B<stuff X<thingZ<>>baz>\n"), 67 is( Pod::Simple::DumpAsXML->_out( \&nixy, "=pod\n\nZ<>F<C<Z<>fE<111>o> I<bar>> B<stuff X<thingZ<>>baz>\n"), 94 is( Pod::Simple [all...] |
| H A D | encod02.t | 7 #use Pod::Simple::Debug (5); 9 use Pod::Simple::DumpAsXML; 10 use Pod::Simple::XMLOutStream; 11 print "# Pod::Simple version $Pod::Simple::VERSION\n"; 14 my @output_lines = split m/[\cm\cj]+/, Pod::Simple::XMLOutStream->_out( q{ 42 my @output_lines = split m/[\cm\cj]+/, Pod::Simple::XMLOutStream->_out( q{
|
| H A D | encod03.t | 7 #use Pod::Simple::Debug (5); 9 use Pod::Simple::DumpAsXML; 10 use Pod::Simple::XMLOutStream; 11 print "# Pod::Simple version $Pod::Simple::VERSION\n"; 14 my @output_lines = split m/[\cm\cj]+/, Pod::Simple::XMLOutStream->_out( q{ 42 my @output_lines = split m/[\cm\cj]+/, Pod::Simple::XMLOutStream->_out( q{
|
| H A D | ac_d.t | 5 #use Pod::Simple::Debug (6); 7 use Pod::Simple::DumpAsXML; 8 use Pod::Simple::XMLOutStream; 10 $Pod::Simple::XMLOutStream::ATTR_PAD = ' '; 11 $Pod::Simple::XMLOutStream::SORT_ATTRS = 1; # for predictably testable output 13 $Pod::Simple::XMLOutStream::ATTR_PAD = ' '; 14 $Pod::Simple::XMLOutStream::SORT_ATTRS = 1; # for predictably testable output 16 my $x = 'Pod::Simple::XMLOutStream';
|
| /openbsd-src/gnu/usr.bin/perl/cpan/Pod-Simple/lib/Pod/Simple/ |
| H A D | LinkSection.pm | 1 package Pod::Simple::LinkSection; 6 use Pod::Simple::BlackBox; 10 '""' => \&Pod::Simple::BlackBox::stringify_lol, 11 'bool' => \&Pod::Simple::BlackBox::stringify_lol, 23 goto &Pod::Simple::BlackBox::stringify_lol; 26 goto &Pod::Simple::BlackBox::stringify_lol; 73 Pod::Simple::LinkSection -- represent "section" attributes of L codes 83 Pod::Simple uses this class for representing the value of the 97 "use base qw(Pod::Simple::Methody); 110 ], 'Pod::Simple [all...] |
| H A D | Debug.pm | 1 package Pod::Simple::Debug; 20 Carp::croak("Usage:\n use Pod::Simple::Debug (NUMVAL)\nor" 21 . "\n use Pod::Simple::Debug (\\\$var, STARTNUMVAL)\nAborting"); 25 Carp::croak("Usage:\n use Pod::Simple::Debug (NUMVAL)\nor" 26 . "\n use Pod::Simple::Debug (\\\$var, STARTNUMVAL)\nAborting"); 29 if( defined &Pod::Simple::DEBUG ) { 31 Carp::croak("It's too late to call Pod::Simple::Debug -- " 32 . "Pod::Simple has already loaded\nAborting"); 40 . "\nUsage:\n use Pod::Simple::Debug (NUMVAL)\nor" 41 . "\n use Pod::Simple [all...] |
| /openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/t/lib/Test/Simple/sample_tests/ |
| H A D | missing_done_testing.plx | 1 require Test::Simple; 4 require Test::Simple::Catch; 5 my($out, $err) = Test::Simple::Catch::caught(); 7 Test::Simple->import();
|
| H A D | one_fail_without_plan.plx | 1 require Test::Simple; 4 require Test::Simple::Catch; 5 my($out, $err) = Test::Simple::Catch::caught(); 7 Test::Simple->import();
|
| H A D | too_few.plx | 1 require Test::Simple; 4 require Test::Simple::Catch; 5 my($out, $err) = Test::Simple::Catch::caught(); 7 Test::Simple->import(tests => 5);
|
| H A D | too_few_fail.plx | 1 require Test::Simple; 4 require Test::Simple::Catch; 5 my($out, $err) = Test::Simple::Catch::caught(); 7 Test::Simple->import(tests => 5);
|
| H A D | pre_plan_death.plx | 4 require Test::Simple; 7 require Test::Simple::Catch; 8 my($out, $err) = Test::Simple::Catch::caught(); 13 Test::Simple->import(tests => 3);
|