view release on metacpan or  search on metacpan

t/03-subinclude.t  view on Meta::CPAN

#!perl

use strict;
use warnings;

use FindBin;
use Test::More;
use File::Spec;
use JavaScript::Minifier::XS 'minify';
use HTTP::Request;
use HTTP::Headers;

use lib "$FindBin::Bin/../lib", "$FindBin::Bin/lib";
use Catalyst::Test 'TestApp3';

my $h = HTTP::Headers->new;
$h->referrer('/station');

my $request = HTTP::Request->new(GET => '/test', $h);

my $served = get($request);

my $str = q{};
for my $t_file (qw{test.js station.js}) {
   my $path = File::Spec->catfile($FindBin::Bin, qw{lib TestApp3 root js}, $t_file);
   open my $file, '<', $path;

   while (<$file>) {
      $str .= $_;
   }
}
ok $served && minify($str) eq $served, 'server actually minifed the javascript';

done_testing;