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