1 files changed, 0 insertions, 107 deletions
diff --git a/test/output.py b/test/output.py
deleted file mode 100644
index 56cfb0a..0000000
--- a/test/output.py
+++ /dev/null
@@ -1,107 +0,0 @@
-use strict;
-use warnings;
-use Test::More tests => 9;
-use Data::Dumper;
-
-use Data::YAML::Writer;
-
-my $out = [
-  "---",
-  "bill-to:",
-  "  address:",
-  "    city: 'Royal Oak'",
-  "    lines: \"458 Walkman Dr.\\nSuite #292\\n\"",
-  "    postal: 48046",
-  "    state: MI",
-  "  family: Dumars",
-  "  given: Chris",
-  "comments: \"Late afternoon is best. Backup contact is Nancy Billsmer \@ 338-4338\\n\"",
-  "date: 2001-01-23",
-  "invoice: 34843",
-  "product:",
-  "  -",
-  "    description: Basketball",
-  "    price: 450.00",
-  "    quantity: 4",
-  "    sku: BL394D",
-  "  -",
-  "    description: 'Super Hoop'",
-  "    price: 2392.00",
-  "    quantity: 1",
-  "    sku: BL4438H",
-  "tax: 251.42",
-  "total: 4443.52",
-  "...",
-];
-
-my $in = {
-  'bill-to' => {
-    'given'   => 'Chris',
-    'address' => {
-      'city'   => 'Royal Oak',
-      'postal' => '48046',
-      'lines'  => "458 Walkman Dr.\nSuite #292\n",
-      'state'  => 'MI'
-    },
-    'family' => 'Dumars'
-  },
-  'invoice' => '34843',
-  'date'    => '2001-01-23',
-  'tax'     => '251.42',
-  'product' => [
-    {
-      'sku'         => 'BL394D',
-      'quantity'    => '4',
-      'price'       => '450.00',
-      'description' => 'Basketball'
-    },
-    {
-      'sku'         => 'BL4438H',
-      'quantity'    => '1',
-      'price'       => '2392.00',
-      'description' => 'Super Hoop'
-    }
-  ],
-  'comments' =>
-   "Late afternoon is best. Backup contact is Nancy Billsmer @ 338-4338\n",
-  'total' => '4443.52'
-};
-
-my @buf1 = ();
-my @buf2 = ();
-my $buf3 = '';
-
-my @destination = (
-  {
-    name        => 'Array reference',
-    destination => \@buf1,
-    normalise   => sub { return \@buf1 },
-  },
-  {
-    name        => 'Closure',
-    destination => sub { push @buf2, shift },
-    normalise => sub { return \@buf2 },
-  },
-  {
-    name        => 'Scalar',
-    destination => \$buf3,
-    normalise   => sub {
-      my @ar = split( /\n/, $buf3 );
-      return \@ar;
-    },
-  },
-);
-
-for my $dest ( @destination ) {
-  my $name = $dest->{name};
-  ok my $yaml = Data::YAML::Writer->new, "$name: Created";
-  isa_ok $yaml, 'Data::YAML::Writer';
-
-  $yaml->write( $in, $dest->{destination} );
-  my $got = $dest->{normalise}->();
-  unless ( is_deeply $got, $out, "$name: Result matches" ) {
-    local $Data::Dumper::Useqq = $Data::Dumper::Useqq = 1;
-    diag( Data::Dumper->Dump( [$got], ['$got'] ) );
-    diag( Data::Dumper->Dump( [$out], ['$expected'] ) );
-  }
-}