CPAN::Groonga

";

$ld0->_error("condition: $invalid");	# just to show us what is happening

isnt($default, "",			"default driver");
isnt($ld0->driver($invalid), $invalid,	"prevent invalid override");
is($ld0->drive

rride $driver");

	$ld0->_error("condition: DSN $driver");

	$ot->queue_button($ld0, "Cancel");

	isnt($ld0->driver, "",			"driver set after $driver");

	$tests += 2;
}


# ---- constrain drivers ----

 };
$ld1->_error("condition: removed $removed");
isnt($removed, "",			"remove driver non-null");
isnt($removed, $ld1->driver,		"remove a driver");
isnt($driver, $ld1->driver,		"check removed");
ok(@{ 

 $ot->this");

isnt(Tk::Exists($ld0), 1, "destroyed $ot->this");

my $ld1 = $top->LoginDialog;
isa_ok( $ld1, $ot->this, "new no parm");

isnt($ld1->driver, "",			"driver non-null");
isnt($ld1->driver(

isnt($ld1->$method, "",			"non-null default $method");
	isnt($ld1->$method("DUMMY"), "",	"read-only non-null $method");
}

for my $option (qw/ -mask -retry /) {
	my $value = $ld1->cget($option);
	isnt

ext') {
		like($w->Contents, qr/^\s*$/,	"subwidget get $c $widget");
	} elsif ($c eq 'BrowseEntry') {

		my $sw = $w->Subwidget('entry');
		isnt($sw->get, "DUMMY",		"subwidget get $c $widget");
	}
}

op) {
	my $old_value = $ld1->cget($property);
	isnt($old_value, "",	"property $property default non-null");

	$ld1->configure($property => $value);
	isnt($ld1->cget($property), $old_value,	"property $

y, $value) = each %common) {
		my $value = $w->cget($property);
		$common{$property} = $value;

		isnt($value, "",	"widget $name property $property default non-null");

#		$log->debug("property [$prop

->top;


# ---- create ----
my $tld = $top->LoginDialog;

isa_ok($tld, $ot->this,	"new object");

isnt("", $tld->driver,	"default dsn_label");


# ---- get sub-widgets ----
my $cycle = 1;
my ($w, @w);

fy label text ----
my $s_override = "mylabel_";
for $w (@w) {

	my $dfl = $w->cget(ATTR_LABEL);

	isnt($dfl, $s_override,		"default $cycle");

	$w->configure('-text' => $s_override . $cycle);

	$ot->q

("ExampleP");
$ot->queue_button($ld, "Login");


# ---- connection ----
my $driver = $ld->driver;
isnt("", $driver,		"driver initialisation");
#($dbh, $msg) = $ld->connect();
($dbh, $msg) = $ld->conne

og;

isa_ok($ld, $ot->this, "new object");


# ---- show version ----
my $default = $ld->version;
isnt($default, "",		"retrieve version string");
$ot->queue_button($ld, "Cancel");

is($ld->version(1),