package ATR::TMP_GuiProdTest;

use strict;
use warnings;
use Tk;

use base qw(ATR::DatabaseTestCase);
use ATR::GTx;
use ATR::Tk::AtrNavigator;
use ATR::Tk::AtrMain;

sub test_coled_struct {
    my $self = shift;

    my $nav = ATR::Tk::AtrMain->ShowType('AtrNavigator');
    $nav->update;
    $nav->go_string('SV');
    $nav->update;
    ATR::Tk::AtrMain->getInstance->update;

    DoOneEvent;
    $self->{MAIN} = ATR::Tk::AtrMain->getInstance;

    $self->fail("whoopsie");
}

1;
