test abuse_mailbox

moritz · Sep 25, 2012 · 55d7d43 · 55d7d43
1 parent 84ff823
commit 55d7d43
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/t/120-Role.t b/t/120-Role.t
@@ -91,6 +91,11 @@ is_deeply( $object->changed(), ['xxx@somewhere.com 20121016'], 'changed properly
 $object->changed('Added changed');
 is( $object->changed()->[1], 'Added changed', 'changed properly added' );
 
+# Test 'abuse_mailbox'
+$tested{'abuse_mailbox'}++;
+$object->abuse_mailbox('foo@example.com');
+is($object->abuse_mailbox->[0], 'foo@example.com', 'abuse_mailbox');
+
 # Test 'source'
 $tested{'source'}++;
 is( $object->source(), 'RIPE # Filtered', 'source properly parsed' );