summaryrefslogtreecommitdiff
path: root/cpan/Parse-CPAN-Meta/t/21_bom.t
diff options
context:
space:
mode:
Diffstat (limited to 'cpan/Parse-CPAN-Meta/t/21_bom.t')
-rw-r--r--cpan/Parse-CPAN-Meta/t/21_bom.t39
1 files changed, 0 insertions, 39 deletions
diff --git a/cpan/Parse-CPAN-Meta/t/21_bom.t b/cpan/Parse-CPAN-Meta/t/21_bom.t
deleted file mode 100644
index 706cf77c3f..0000000000
--- a/cpan/Parse-CPAN-Meta/t/21_bom.t
+++ /dev/null
@@ -1,39 +0,0 @@
-#!/usr/bin/perl
-
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = ('../lib', 'lib');
- }
- else {
- unshift @INC, 't/lib/';
- }
-}
-
-use strict;
-BEGIN {
- $| = 1;
- $^W = 1;
-}
-
-use File::Spec::Functions ':ALL';
-use Parse::CPAN::Meta::Test;
-use Test::More tests(0, 1, 3);
-
-
-
-
-
-#####################################################################
-# Testing that Perl::Smith config files work
-
-my $sample_file = catfile( test_data_directory(), 'utf_16_le_bom.yml' );
-my $sample = load_ok( 'utf_16_le_bom.yml', $sample_file, 3 );
-
-# Does the string parse to the structure
-my $name = "utf-16";
-my $yaml_copy = $sample;
-my $yaml = eval { Parse::CPAN::Meta::Load( $yaml_copy ); };
-is( $yaml_copy, $sample, "$name: Parse::CPAN::Meta::Load does not modify the input string" );
-is( $yaml, undef, "file not parsed" );
-ok( $@ =~ "Stream has a non UTF-8 Unicode Byte Order Mark", "correct error" );