diff options
Diffstat (limited to 't/inbox.t')
| -rw-r--r-- | t/inbox.t | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/t/inbox.t b/t/inbox.t new file mode 100644 index 0000000..e6a1790 --- /dev/null +++ b/t/inbox.t @@ -0,0 +1,22 @@ +use strict; +use lib -e 't' ? 't' : 'test'; +use TestYAML tests => 3; + +SKIP: { + skip 'fix this next release', 3; + my $x; + is(Dump(bless(\$x)), 'foo'); +} + +__END__ +03:14 < audreyt> ingy: +03:14 < audreyt> use YAML; my $x; print Dump bless(\$x); +03:14 < audreyt> is erroneous +03:14 < audreyt> then +03:14 < audreyt> use YAML; my $x = \3; print Dump bless(\$x); +03:14 < audreyt> is fatal error +03:15 < audreyt> use YAML; my $x; $x = \$x; print Dump bless(\$x); +03:15 < audreyt> is scary fatal error +03:15 < audreyt> (YAML::Syck handles all three ^^;) +03:16 * audreyt goes back to do $job work + |