1#!/usr/bin/perl -w 2 3use strict; 4 5use Test::Builder; 6 7my $tb = Test::Builder->new; 8$tb->level(0); 9 10$tb->ok(1, "testing done_testing() with no arguments"); 11$tb->ok(1, " another test so we're not testing just one"); 12$tb->done_testing(); 13