root/t/unspecced/eval_yaml.t
| Revision 20490, 0.5 kB (checked in by Auzon, 8 months ago) | |
|---|---|
|
|
| Line | |
|---|---|
| 1 | use v6; |
| 2 | |
| 3 | use Test; |
| 4 | |
| 5 | plan 4; |
| 6 | |
| 7 | if $?PUGS_BACKEND eq "BACKEND_JAVASCRIPT" { |
| 8 | skip_rest "YAML support not available in PIL2JS"; |
| 9 | exit; |
| 10 | } |
| 11 | |
| 12 | ok(eval(q{#eval("- *a\n a: b\n- *a\n b: c\n",:lang<yaml>)}),'yaml parsing can kill pugs all the way dead'); |
| 13 | |
| 14 | ok(undef, "Bug workaround for release.", :todo<bug>); |
| 15 | # Bug workaround: the order of the next two tests determines |
| 16 | # whether the second one ('test') fails under smoke. |
| 17 | is( eval('test', :lang<yaml>), 'test', '"test" roundtrips' ); |
| 18 | ok( !defined(eval(undef, :lang<yaml>)), '"undef" roundtrips' ); |
Note: See TracBrowser
for help on using the browser.
