git.maemo.org Git - pkg-perl/blob - deb-src/libwx-perl/libwx-perl-0.96/t/01_load.t

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use Test::More tests => 6;
   5
   6 BEGIN { use_ok 'Wx' }
   7
   8 use Wx 'wxYES';
   9 my $x = wxYES;
  10
  11 ok( 1, "Exported constant" );
  12
  13 SKIP: {
  14   use Wx qw(:frame :allclasses wxNO_3D wxTAB_TRAVERSAL);
  15
  16   $x = wxTAB_TRAVERSAL();
  17   $x = wxCAPTION();
  18
  19   ok( 1, "Export list with :allclasses" );
  20   ok( Wx::HtmlWindow->isa( 'Wx::Window' ), "Wx::Html was loaded" );
  21 }
  22
  23 eval "use Wx qw(wxNO_SUCH_CONSTANT)";
  24 ok( $@, "Error exporting missing constant: $@" );
  25
  26 eval "Wx::wxNO_SUCH_CONSTANT()";
  27 ok( $@, "Error autoloading missing constant: $@" );
  28
  29 # Local variables: #
  30 # mode: cperl #
  31 # End: #