https://perl5.git.perl.org / perl5.git / blame
| Commit | Line | Data |
|---|---|---|
| 518760d9 | 1 | package ok; |
| afad11a2 | 2 | $ok::VERSION = '0.16'; |
| 518760d9 | 3 | |
| afad11a2 RS |
4 | use strict; |
| 5 | use Test::More (); | |
| 518760d9 CG |
6 | |
| 7 | sub import { | |
| 8 | shift; | |
| 9 | ||
| 10 | if (@_) { | |
| 518760d9 CG |
11 | goto &Test::More::pass if $_[0] eq 'ok'; |
| 12 | goto &Test::More::use_ok; | |
| 13 | } | |
| afad11a2 RS |
14 | |
| 15 | # No argument list - croak as if we are prototyped like use_ok() | |
| 16 | my (undef, $file, $line) = caller(); | |
| 17 | ($file =~ /^\(eval/) or die "Not enough arguments for 'use ok' at $file line $line\n"; | |
| 518760d9 CG |
18 | } |
| 19 | ||
| 518760d9 CG |
20 | |
| 21 | __END__ | |
| 22 | ||
| 518760d9 CG |
23 | =head1 NAME |
| 24 | ||
| 25 | ok - Alternative to Test::More::use_ok | |
| 26 | ||
| 27 | =head1 SYNOPSIS | |
| 28 | ||
| 29 | use ok 'Some::Module'; | |
| 30 | ||
| 31 | =head1 DESCRIPTION | |
| 32 | ||
| 33 | With this module, simply change all C<use_ok> in test scripts to C<use ok>, | |
| 34 | and they will be executed at C<BEGIN> time. | |
| 35 | ||
| 36 | Please see L<Test::use::ok> for the full description. | |
| 37 | ||
| afad11a2 | 38 | =head1 CC0 1.0 Universal |
| 518760d9 CG |
39 | |
| 40 | To the extent possible under law, 唐鳳 has waived all copyright and related | |
| 41 | or neighboring rights to L<Test-use-ok>. | |
| 42 | ||
| 43 | This work is published from Taiwan. | |
| 44 | ||
| 45 | L<http://creativecommons.org/publicdomain/zero/1.0> | |
| 46 | ||
| afad11a2 | 47 | =cut |