- ok($scrubber = C4::Scrubber->new($_), "Constructor: C4::Scrubber->new($_)");
- ok(printf("# scrubber settings: default %s, comment %s, process %s\n",
- $scrubber->default(),$scrubber->comment(),$scrubber->process()),
- "Outputting settings from scrubber object (type: $_)"
- );
+ ok($scrubber = C4::Scrubber->new($_), "testing Constructor: C4::Scrubber->new($_)");
+
+ warning_like { $scrubber->default() } '', "\$scrubber->default ran without fault.";
+ warning_like { $scrubber->comment() } '', "\$scrubber->comment ran without fault.";
+ warning_like { $scrubber->process() } '', "\$scrubber->process ran without fault.";
+