1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6use Test::Builder::Tester tests => 3;
7use Test::More;
8use File::Basename qw(dirname);
9use File::Spec qw();
10
11my $file = File::Spec->join(dirname(__FILE__), 'tbt_09do_script.pl');
12$file = File::Spec->rel2abs(File::Spec->catfile(File::Spec->curdir(), $file))
13    unless File::Spec->file_name_is_absolute($file);
14my $done = do $file;
15ok(defined($done), 'do succeeded') or do {
16    if ($@) {
17        diag qq(  \$@ is '$@'\n);
18    } elsif ($!) {
19        diag qq(  \$! is '$!'\n);
20    } else {
21        diag qq(  file's last statement returned undef: $file)
22    }
23};
24