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