Skip to content

Commit

Permalink
fix pod.t and remove from CPAN
Browse files Browse the repository at this point in the history
  • Loading branch information
chocolateboy committed Oct 26, 2013
1 parent ae9e93b commit 02ca98b
Show file tree
Hide file tree
Showing 3 changed files with 8 additions and 41 deletions.
1 change: 0 additions & 1 deletion MANIFEST
Original file line number Diff line number Diff line change
Expand Up @@ -22,7 +22,6 @@ t/isa.t
t/lib/Versioned.pm
t/merge.t
t/name.t
t/pod.t
t/rt_46814.t
t/rt_55652.t
t/rt_71777.t
Expand Down
32 changes: 0 additions & 32 deletions t/all.t
Original file line number Diff line number Diff line change
Expand Up @@ -609,38 +609,6 @@ my $undef_error = qr{Can't call method "[^"]+" on an undefined value};
is($code->autobox_class->isa('UNKNOWN'), '', 'isa UNKNOWN: $code');
}

# test VERSION

=pod
{
use autobox;
is (3->VERSION(), 0.01, 'can: integer literal');
is ((-3)->VERSION(), 0.01, 'can: negative integer literal');
is ((+3)->VERSION(), 0.01, 'can: positive integer literal');
is ($int->VERSION(), 0.01, 'can: $integer');
is (3.1415927->VERSION(), 0.01, 'can: float literal');
is ((-3.1415927)->VERSION(), 0.01, 'can: negative float literal');
is ((+3.1415927)->VERSION(), 0.01, 'can: positive float literal');
is ($float->VERSION(), 0.01, 'can: $float');
is ('Hello, world'->VERSION(), 0.01, 'can: single quoted string literal');
is ("Hello, world"->VERSION(), 0.01, 'can: double quoted string literal');
is ($string->VERSION(), 0.01, 'can: $string');
is ([ 0 .. 9 ]->VERSION(), 0.01, 'can: ARRAY ref');
is ($array->VERSION(), 0.01, 'can: $array');
is ({ 0 .. 9 }->VERSION(), 0.01, 'can: HASH ref');
is ($hash->VERSION(), 0.01, 'can: $hash');
is ((\&add)->VERSION(), 0.01, 'can: CODE ref');
is (sub { $_[0] + $_[1] }->VERSION(), 0.01, 'can: ANON sub');
is ($code->VERSION(), 0.01, 'can: $code');
}
=cut

# test undef: by default, undef shouldn't be autoboxed...
{
use autobox;
Expand Down
16 changes: 8 additions & 8 deletions t/pod.t
Original file line number Diff line number Diff line change
@@ -1,10 +1,10 @@
eval "use Test::Pod";
#!/usr/bin/env perl

if ($@) {
print "1..0 # Skip Test::Pod not installed", $/;
exit;
}

my @PODS = qw#../blib#;
use strict;
use warnings;

all_pod_files_ok(all_pod_files(@PODS));
use Test::More;

eval 'use Test::Pod 1.00';
plan skip_all => 'Test::Pod 1.00 required for testing POD' if ($@);
all_pod_files_ok();

0 comments on commit 02ca98b

Please sign in to comment.