add test for assets being included in html and available

Author: haarg

t/assets.t

@@ -0,0 +1,28 @@
+use strict;
+use warnings;
+use Test::More;
+use MetaCPAN::Web::Test qw( app GET test_psgi tx );
+
+test_psgi app, sub {
+    my $cb = shift;
+    {
+        ok( my $res = $cb->( GET '/' ), 'GET /' );
+        is( $res->code, 200, 'code 200' );
+
+        my $xpc = tx($res)->xpc;
+
+        my @assets = grep m{^/}, map $_->value,
+            $xpc->findnodes(q[//script/@src]),
+            $xpc->findnodes(q[//link[@rel="stylesheet"]/@href]);
+
+        ok( ( grep /\.js$/,  @assets ), 'assets include a js file' );
+        ok( ( grep /\.css$/, @assets ), 'assets include a css file' );
+
+        for my $asset (@assets) {
+            ok( my $res = $cb->( GET $asset ), "GET $asset" );
+            is( $res->code, 200, 'code 200' );
+        }
+    }
+};
+
+done_testing;