t/05bgep-re.t

   1 #!/usr/bin/perl
   2 # vim: set ft=perl:
   3 #
   4
   5 use strict;
   6
   7 use File::Spec::Functions qw(catfile tmpdir);
   8 use File::Temp qw(tempfile);
   9 use FindBin qw($Bin);
  10 use SQL::Translator;
  11 use Test::More tests => 2;
  12
  13 my @data = qw(data mysql BGEP-RE-create.sql);
  14 my $test_data = (-d "t")
  15     ? catfile($Bin, @data)
  16     : catfile($Bin, "t", @data);
  17
  18 my $tr = SQL::Translator->new(parser => "MySQL",
  19                               producer => "XML",
  20                               filename => $test_data);
  21 my $data = $tr->translate;
  22
  23 ok($data, "MySQL->XML");
  24
  25 SKIP: {
  26     eval {
  27         require XML::Parser;
  28     };
  29     if ($@) {
  30         skip "Can't load XML::Parser" => 1;
  31     }
  32
  33     # Can't get XML::Parser::parsestring to do Useful Things
  34     my ($fh, $fname) = tempfile('sqlfXXXX',
  35                                 UNLINK => 1,
  36                                 SUFFIX => '.xml',
  37                                 DIR => tmpdir);
  38     print $fh $data;
  39     $fh->close;
  40
  41     ok(XML::Parser->new->parsefile($fname),
  42         "Successfully parsed output");
  43 }