X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F01use.t;h=f99b715a5a33f5142e7b8c8413c495974f322374;hb=239fb0d6bfb5b06427a2140367da87b9c9c9337c;hp=0fc29fe70b6218af66148ddc895134a778986a38;hpb=44761c0069a2e8055efc3f45c11c42467556bf2a;p=catagits%2FHTTP-Body.git

diff --git a/t/01use.t b/t/01use.t
index 0fc29fe..f99b715 100644
--- a/t/01use.t
+++ b/t/01use.t
@@ -1,56 +1,9 @@
+#!perl
+
 use Test::More 'no_plan';
 
 use strict;
-use FindBin;
-use_ok 'HTTP::Body';
-use YAML 'LoadFile';
-use Path::Class;
-use Data::Dumper;
-
-for my $format (qw/multipart urlencoded/) {
-
-    for my $match ( glob file( $FindBin::Bin, 'data', $format, '*.dat' ) ) {
-        my $file = file($match);
-        my $name = $file->basename;
-        $name =~ /^(\d+)-.*/;
-        my $num     = $1;
-        my $headers = LoadFile( file( $FindBin::Bin, 'data', $format, "$num-headers.yml" ) );
-        my $results = LoadFile( file( $FindBin::Bin, 'data', $format, "$num-results.yml" ) );
-        my $content = $file->open('<');
-        my $body    = HTTP::Body->new( $headers->{'Content-Type'}, $headers->{'Content-Length'} );
-
-        binmode $content, ':raw';
-
-        while ( $content->read( my $buffer, 1024 ) ) {
-            $body->add($buffer);
-        }
+use warnings;
 
-        if ( $ENV{HTTP_BODY_DEBUG} ) {
-            warn Dumper( $body->param );
-            warn Dumper( $body->upload );
-            warn Dumper( $body->body );
-
-            warn "state          : " . $body->state;
-            warn "length         : " . $body->length;
-            warn "content length : " . $body->content_length;
-            warn "body length    : " . ( $body->body->stat )[7] if $body->body;
-            warn "buffer         : " . $body->buffer if $body->buffer;
-        }
-        
-        for my $field ( keys %{ $body->upload } ) {
-
-            my $value = $body->upload->{$field};
-
-            for ( ( ref($value) eq 'ARRAY' ) ? @{$value} : $value ) {
-                delete $_->{tempname};
-            }
-        }
-
-        is_deeply( $body->body, $results->{body}, "$num-$format body" );
-        is_deeply( $body->param, $results->{param}, "$num-$format param" );
-        is_deeply( $body->upload, $results->{upload}, "$num-$format upload" );
-        ok( $body->state eq 'done', "$num-$format state" );
-    }
-}
+use_ok 'HTTP::Body';
 
-1;