root/t/perl5/import.t
| Revision 22090, 260 bytes (checked in by lwall, 4 months ago) | |
|---|---|
|
|
| Line | |
|---|---|
| 1 | use v6; |
| 2 | |
| 3 | use Test; |
| 4 | plan 1; |
| 5 | |
| 6 | =begin pod |
| 7 | |
| 8 | P5 module import test |
| 9 | |
| 10 | =end pod |
| 11 | |
| 12 | unless (try { eval("1", :lang<perl5>) }) { |
| 13 | skip_rest; |
| 14 | exit; |
| 15 | } |
| 16 | |
| 17 | eval q[ |
| 18 | use perl5:Text::Wrap 'wrap'; |
| 19 | is(wrap('foo', 'bar', 'baz'), 'foobaz', "import p5 module"); |
| 20 | ] or die $!.perl; |
Note: See TracBrowser
for help on using the browser.
