The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/local/bin/perl -w
use strict;
use Test::More tests => 5;

SKIP: {
    eval "require Wx";
    skip "Requires Wx", 5 if $@;

    my $module = 'Wx::Perl::VirtualTreeCtrl';
    use_ok $module;
    ok $module->isa('Wx::EvtHandler'), '... isa Wx::EventHandler';

    ok ! defined(&{"EVT_POPULATE_TREE_ITEM"}), "... doesn't export anything";
    import $module 'EVT_POPULATE_TREE_ITEM';
    ok defined(&{"EVT_POPULATE_TREE_ITEM"}),
        '... but can export EVT_POPULATE_TREE_ITEM';

    ok $module->can('GetTree'), '... can GetTree';
}