diff options
Diffstat (limited to 't/global-api.t')
-rw-r--r-- | t/global-api.t | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/t/global-api.t b/t/global-api.t new file mode 100644 index 0000000..5932ef9 --- /dev/null +++ b/t/global-api.t @@ -0,0 +1,32 @@ +use strict; +use lib -e 't' ? 't' : 'test'; +use lib 'inc'; +use Test::YAML(); +BEGIN { + @Test::YAML::EXPORT = + grep { not /^(Dump|Load)(File)?$/ } @Test::YAML::EXPORT; +} +use TestYAML tests => 4; +use YAML; + +{ + no warnings qw'once redefine'; + require YAML::Dumper; + + local *YAML::Dumper::dump = + sub { return 'got to dumper' }; + + require YAML::Loader; + local *YAML::Loader::load = + sub { return 'got to loader' }; + + is Dump(\%ENV), 'got to dumper', + 'Dump got to the business end'; + is Load(\%ENV), 'got to loader', + 'Load got to the business end'; + + is Dump(\%ENV), 'got to dumper', + 'YAML::Dump got to the business end'; + is Load(\%ENV), 'got to loader', + 'YAML::Load got to the business end'; +} |