From b78632292cdea8259bc6493e6cfa5a5326c22d60 Mon Sep 17 00:00:00 2001 From: Angelo Naselli Date: Wed, 25 Jun 2014 17:24:33 +0200 Subject: added arrayListToYItemCollection and managed default item into ask_fromList --- t/03-Shared_GUI.t | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 't') diff --git a/t/03-Shared_GUI.t b/t/03-Shared_GUI.t index 01a5772d..65777983 100644 --- a/t/03-Shared_GUI.t +++ b/t/03-Shared_GUI.t @@ -37,12 +37,14 @@ BEGIN { diag "ask_YesOrNo got: < " . ($btn == 1 ? "Yes": "No"). " >"; #TODO cancel makes this test failing - ok(my $item = $gui->ask_fromList({title => "Choose from list", header => "Which one do you select?", default_button => 1, - list => ['item 1', 'item 2', 'item 3', 'item 4']}), 'ask_fromList'); + ok(my $item = $gui->ask_fromList({title => "Choose from list", header => "Which one do you select? [default is item 3]", default_button => 1, + list => ['item 1', 'item 2', 'item 3', 'item 4'], + default_item => 'item 3' + }), 'ask_fromList'); diag "ask_fromList got: < " . ($item ? $item : "none") . " >"; #TODO cancel makes this test failing - ok($item = $gui->ask_fromTreeList({title => "Choose from list", header => "Which one do you select?", default_button => 1, + ok($item = $gui->ask_fromTreeList({title => "Choose from list", header => "Which one do you select? [default is leaf 2]", default_button => 1, default_item => 'leaf 2', list => ['item 1/item 2/item 3', 'item 1/item 2/leaf 1', 'item 1/item 2/leaf 2', 'item 4/leaf 3', 'item 5']}), 'ask_fromTreeList'); -- cgit v1.2.1