[Rt-commit] r5346 - in CSS-Squish: t

[trs at bestpractical.com]

Author: trs
Date: Wed Jun  7 16:49:55 2006
New Revision: 5346

Modified:
   CSS-Squish/   (props changed)
   CSS-Squish/t/02-edge-cases.t

Log:
 r12758 at zot:  tom | 2006-06-07 16:49:49 -0400
 Fix this test with the help of Test::LongString


Modified: CSS-Squish/t/02-edge-cases.t
==============================================================================
--- CSS-Squish/t/02-edge-cases.t	(original)
+++ CSS-Squish/t/02-edge-cases.t	Wed Jun  7 16:49:55 2006
@@ -2,7 +2,8 @@
 use strict;
 use warnings;
 
-use Test::More skip_all => "Not complete.";
+use Test::More tests => 2;
+use Test::LongString;
 
 use_ok("CSS::Squish");
 
@@ -10,52 +11,67 @@
 
 
 /**
-  * Original CSS: @import "t/css/blam.css" print;
+  * From t/css/02-edge-cases.css: @import "blam.css" print;
   */
 
 @media print {
 Blam!
 }
 
+/** End of blam.css */
+
+
 /**
-  * Original CSS: @import "t/css/blam.css";
+  * From t/css/02-edge-cases.css: @import "blam.css";
   */
 
 Blam!
 
+/** End of blam.css */
+
+
 /**
-  * Original CSS: @import url( "t/css/foo.css") print,aural;
+  * From t/css/02-edge-cases.css: @import url( "foo.css") print,aural;
   */
 
 @media print,aural {
 foo1
 }
 
+/** End of foo.css */
+
+
 /**
-  * Original CSS: @import url(t/css/foo2.css ) print, aural, tty;
+  * From t/css/02-edge-cases.css: @import url(foo2.css ) print, aural, tty;
   */
 
 @media print, aural, tty {
 foo2
 }
 
+/** End of foo2.css */
+
+
 /**
-  * Original CSS: @import 'failure.css' print;
+  * From t/css/02-edge-cases.css: @import 'failure.css' print;
   */
 
 @media print {
-/* WARNING: Unable to open file 'failure.css': No such file or directory */
+/* WARNING: Unable to open file 't/css/failure.css': No such file or directory */
 }
 
+/** End of failure.css */
+
+
 fjkls
  jk
-
- at import url("t/css/foo.css");
+ 
+ at import url("foo.css");
 
 last
 EOT
 
 my $result = CSS::Squish->concatenate('t/css/02-edge-cases.css');
 
-is($result, $expected_result, "Edge cases");
+is_string($result, $expected_result, "Edge cases");