Changeset 9355 for trunk/Padre-Plugin-wxGlade/t/03_wxg.t

Timestamp:

11/30/09 22:16:31 (2 years ago)

Author:

adamk

Message:

Completed the WXG file object, but not entirely sure if I'm going to need it yet. Better to just implement it while everything is fresh in my head.

File:

• trunk/Padre-Plugin-wxGlade/t/03_wxg.t (modified) (3 diffs)

trunk/Padre-Plugin-wxGlade/t/03_wxg.t

@@ -6 +6 @@
 use strict;
 use warnings;
-use Test::More 0.82 tests => 2;
+use Test::More 0.82 tests => 19;
 use File::Spec::Functions ':ALL';
 use Padre::Plugin::wxGlade::WXG ();
@@ -12 +12 @@
 my $SAMPLE = catfile( 't', 'sample', 'Dialogs.wxg' );
 ok( -f $SAMPLE, 'Sample wxg file exists' );
+
+my @WINDOWS = qw{
+    frame_1
+    dialog_find
+    dialog_replace
+    dialog_openurl
+    dialog_warning
+};  
 
 
@@ -25 +33 @@
 );
 
+# Accessor tests
+is( $wxg->wxg,         $SAMPLE, '->file ok'        );
+is( $wxg->language,    'perl',  '->language ok'    );
+is( $wxg->for_version, '2.8',   '->for_version ok' );
+is( $wxg->path, 'F:\padre\wxglade\Dialogs.pl', '->path ok' );
+
+# Get the list of windows
+my @windows = $wxg->windows;
+is_deeply(
+    \@windows,
+    \@WINDOWS,
+    'Found expected windows',
+);
+
+# Load a named window
+is( ref($wxg->window('dialog_warning')), 'HASH', 'Found dialog_warning' );
+is( ref($wxg->top_window), 'HASH', 'Found ->top_window' );
+
+# Extract the Perl class for each
+foreach my $name ( @WINDOWS ) {
+    my $code = $wxg->extract( $wxg->window($name) );
+    ok( defined $code, 'Found code for $name' );
+    ok( length($code), 'Found code for $name' );
+}
+
 1;