From 2f652ba783a4b8675a020955e494c64391eb0ab2 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Mon, 19 Apr 2010 15:39:15 -0500 Subject: initial implementation --- t/001-bundled.t | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 t/001-bundled.t (limited to 't/001-bundled.t') diff --git a/t/001-bundled.t b/t/001-bundled.t new file mode 100644 index 0000000..fc3213f --- /dev/null +++ b/t/001-bundled.t @@ -0,0 +1,31 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; + +use Cwd; +use File::Temp; +use Path::Class; + +use Resource::Pack::JSON; + +{ + my $oldcwd = getcwd; + my $dir = File::Temp->newdir; + chdir $dir; + my $file = file('json2.js'); + + my $resource = Resource::Pack::JSON->new(use_bundled => 1); + ok(!-e $file, "json doesn't exist yet"); + $resource->install; + ok(-e $file, "json exists!"); + like($file->slurp, qr/2010-03-20/, + "got the right json version"); + like($file->slurp, qr/\Qif (!this.JSON) {/, + "got something that looks like json2.js"); + unlike($file->slurp, qr/Remove this line from json2\.js before deployment/, + "the alert has been removed"); + chdir $oldcwd; +} + +done_testing; -- cgit v1.2.3-54-g00ecf