X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=t%2F07_bugreport.t;fp=t%2F07_bugreport.t;h=3600e1ca7a35684e6b4120399bb4895d508b225d;hb=79880fc0337d60e4ae4a931ee21ba328aaef6af9;hp=0366be41b9c5b72a5229c94f0aafe4a0bb01480e;hpb=98422d682786dac1dd2191b60cb82584b92b73f3;p=debbugs.git diff --git a/t/07_bugreport.t b/t/07_bugreport.t index 0366be4..3600e1c 100644 --- a/t/07_bugreport.t +++ b/t/07_bugreport.t @@ -1,7 +1,7 @@ # -*- mode: cperl;-*- -use Test::More tests => 6; +use Test::More tests => 8; use warnings; use strict; @@ -84,6 +84,13 @@ ok($mech->content() =~ qr/Subject: Submitting a bug/i, ok($mech->content() =~ qr/^From /m, 'Starts with a From appropriately'); +$mech->get_ok('http://localhost:'.$port.'/?bug=1;mboxmaint=yes', + 'Page received ok'); +print STDERR $mech->content(); +ok($mech->content() !~ qr/[\x01\x02\x03\x05\x06\x07]/i, + 'No unescaped states'); + + # Other tests for bugs in the page should be added here eventually