File: pass.t

package info (click to toggle)
libtest-version-perl 2.09-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, sid, trixie
  • size: 360 kB
  • sloc: perl: 843; makefile: 2
file content (22 lines) | stat: -rw-r--r-- 389 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
#!/usr/bin/perl -T
use 5.006;
use strict;
use warnings;
use Test::Tester tests => 8;
use Test::More;
use Test::Version version_ok => { ignore_unindexable => 0 };

my $ret;
check_test(
	sub {
		$ret = version_ok( 'corpus/pass/Foo.pm' );
	},
	{
		ok => 1,
		name => q[check version in 'corpus/pass/Foo.pm'],
		diag => '',
	},
	'version ok'
);

ok $ret, "version_ok() returned true on pass";