X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=t%2F22_oo_interface.t;h=f8262c3d7fd8e36ac95ae5606aea3bc4917e525c;hb=e6abf5480f3b22eaea4dd3490305e5709772920e;hp=a14b68574ad5eda56c58444fc2770feac9b33ed8;hpb=0e16a5214d3617d0df54712869b2da0f3c64fcdb;p=debbugs.git

diff --git a/t/22_oo_interface.t b/t/22_oo_interface.t
index a14b685..f8262c3 100644
--- a/t/22_oo_interface.t
+++ b/t/22_oo_interface.t
@@ -35,21 +35,13 @@ $tests++;
 
 # create 4 bugs
 for (1..4) {
-    send_message(to=>'submit@bugs.something',
-		 headers => [To   => 'submit@bugs.something',
-			     From => 'foo@bugs.something',
-			     Subject => 'Submitting a bug '.$_,
-			    ],
-		 run_processall => ($_ == 4 ? 1 : 0),
-		 body => <<EOF) or fail('Unable to send message');
-Package: foo
-Severity: normal
-Tags: wontfix moreinfo
-
-This is a silly bug $_
-EOF
+    submit_bug(subject => 'Submitting a bug '.$_,
+	       pseudoheaders => {Severity => 'normal',
+				 Tags => 'wontfix moreinfo',
+				},
+	      );
 }
-
+run_processall();
 
 my $bc = Debbugs::Collection::Bug->new(bugs => [1..4]);
 
@@ -64,7 +56,7 @@ ok(!$bug->archiveable,
   );
 $tests++;
 
-is($bug->submitter,'foo@bugs.something',
+is($bug->submitter->email,'foo@bugs.something',
    "Submitter works"
   );
 $tests++;