[Rt-commit] r18076 - in rt/3.999/branches/merge_to_3.8.2: t/web

sunnavy at bestpractical.com sunnavy at bestpractical.com
Thu Jan 29 23:21:32 EST 2009


Author: sunnavy
Date: Thu Jan 29 23:21:31 2009
New Revision: 18076

Modified:
   rt/3.999/branches/merge_to_3.8.2/   (props changed)
   rt/3.999/branches/merge_to_3.8.2/t/web/basic.t

Log:
 r19335 at sunnavys-mb:  sunnavy | 2009-01-30 09:47:41 +0800
 merged t/web/basic.t


Modified: rt/3.999/branches/merge_to_3.8.2/t/web/basic.t
==============================================================================
--- rt/3.999/branches/merge_to_3.8.2/t/web/basic.t	(original)
+++ rt/3.999/branches/merge_to_3.8.2/t/web/basic.t	Thu Jan 29 23:21:31 2009
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 
 use strict;
-use RT::Test; use Test::More tests => 20;
+use RT::Test; use Test::More tests => 21;
 use HTTP::Request::Common;
 use HTTP::Cookies;
 use LWP;
@@ -70,6 +70,25 @@
     like ($agent->{'content'}, qr/to '300'/, "5 hours is 300 minutes");
 # }}}
 
+# {{{ test an image
+
+TODO: {
+    todo_skip("Need to handle mason trying to compile images",1);
+$agent->get( $url."NoAuth/images/test.png" );
+my $file = RT::Test::get_relocatable_file(
+  File::Spec->catfile(
+    qw(.. .. share html NoAuth images test.png)
+  )
+);
+is(
+    length($agent->content),
+    -s $file,
+    "got a file of the correct size ($file)",
+);
+}
+# }}}
+
+    
 # {{{ query Builder tests
 #
 # XXX: hey-ho, we have these tests in t/web/query-builder


More information about the Rt-commit mailing list