File: 02versions.t

package info (click to toggle)
libperl-apireference-perl 0.19-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 4,964 kB
  • ctags: 842
  • sloc: perl: 46,319; makefile: 21
file content (22 lines) | stat: -rw-r--r-- 391 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
use strict;
use warnings;
use Perl::APIReference;

my @Perls;
BEGIN {
  @Perls = sort keys %Perl::APIReference::Perls;
}

use Test::More tests => scalar( @Perls );

foreach my $version (@Perls) {
  my $err;
  ok(
    eval {
      Perl::APIReference->new( perl_version => $version );
      1;
    } || do {$err = $@||'Zombie Error'; 0},
    $version
  )
  or warn "Caught exception: $err";
}