STEFFENW / DBD-PO-2.10 / t / 03_DBD-PO / 20_01_example_write.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

              
#!perl -T
use strict;
use warnings;
use Test::DBD::PO::Defaults qw(run_example $FILE_2X $TABLE_2X);
use Test::More;
$ENV{TEST_EXAMPLE} or plan(
    skip_all => 'Set $ENV{TEST_EXAMPLE} to run this test.'
);
plan(tests => 2);
is(
    run_example('01_write.pl'),
    q{},
    'run 01_write.pl',
);
ok(
    -e $FILE_2X,
    "$TABLE_2X exists",
);