1package t::TestYAML;
2
3BEGIN { $ENV{PERL_DL_NONLAZY} = 0 }
4
5use strict;
6use Test;
7use YAML::Syck;
8
9sub import {
10    shift;
11    @_ or return;
12    plan @_;
13
14    *::ok = *ok;
15    *::is = *ok;
16    *::roundtrip = *roundtrip;
17    *::Dump = *YAML::Syck::Dump;
18    *::Load = *YAML::Syck::Load;
19}
20
21sub roundtrip {
22    @_ = (YAML::Syck::Load(YAML::Syck::Dump($_[0])), $_[0]);
23    goto &main::is;
24}
25
261;
27
28#use Test::YAML 0.51 -Base;
29#
30#$Test::YAML::YAML = 'YAML::Syck';
31#Test::YAML->load_yaml_pm;
32