X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=t%2F07_bugreport.t;h=0366be41b9c5b72a5229c94f0aafe4a0bb01480e;hb=98422d682786dac1dd2191b60cb82584b92b73f3;hp=dedd4458e0b342fed92ba16f97472dd0e7285e4f;hpb=c6d8b358aee776d0b4d7ced29f086d7e32c2b21a;p=debbugs.git diff --git a/t/07_bugreport.t b/t/07_bugreport.t index dedd445..0366be4 100644 --- a/t/07_bugreport.t +++ b/t/07_bugreport.t @@ -1,7 +1,7 @@ # -*- mode: cperl;-*- -use Test::More tests => 3; +use Test::More tests => 6; use warnings; use strict; @@ -74,7 +74,16 @@ my $mech = Test::WWW::Mechanize->new(); $mech->get_ok('http://localhost:'.$port.'/?bug=1', 'Page received ok'); -ok($mech->content() =~ qr/\\#1\s+\-\s+Submitting a bug/i, +ok($mech->content() =~ qr/\\#1.+Submitting a bug/i, 'Title of bug is submitting a bug'); +$mech->get_ok('http://localhost:'.$port.'/?bug=1;mbox=yes', + 'Page received ok'); +ok($mech->content() =~ qr/Subject: Submitting a bug/i, + 'Subject of bug maibox is right'); +ok($mech->content() =~ qr/^From /m, + 'Starts with a From appropriately'); + + # Other tests for bugs in the page should be added here eventually +