Glib-Object-Introspection-0.049/t/arrays.t

11 ok (Regress::test_strv_in ([ '1', '2', '3' ]));
14 is (Regress::test_array_int_in ($int_array), 6);
15 is_deeply (Regress::test_array_int_out (), [0, 1, 2, 3, 4]);
17 is_deeply (Regress::test_array_int_inout ($int_array), [3, 4]);
18 is (Regress::test_array_gint8_in ($int_array), 6);
19 is (Regress::test_array_gint16_in ($int_array), 6);
20 is (Regress::test_array_gint32_in ($int_array), 6);
21 is (Regress::test_array_gint64_in ($int_array), 6);
22 is (Regress::test_array_gtype_in ([ 'Glib::Object', 'Glib::Int64' ]), "[GObject,gint64,]");
23 is (Regress::test_array_fixed_size_int_in ([ 1, 2, 3, 4, 5 ]), 15);
24 is_deeply (Regress::test_array_fixed_size_int_out (), [ 0, 1, 2, 3, 4 ]);
25 is_deeply (Regress::test_array_fixed_size_int_return (), [ 0, 1, 2, 3, 4 ]);
26 is_deeply (Regress::test_strv_out_container (), [ '1', '2', '3' ]);
27 is_deeply (Regress::test_strv_out (), [ 'thanks', 'for', 'all', 'the', 'fish' ]);
28 is_deeply (Regress::test_strv_out_c (), [ 'thanks', 'for', 'all', 'the', 'fish' ]);
29 is_deeply (Regress::test_strv_outarg (), [ '1', '2', '3' ]);
31 is_deeply (Regress::test_array_int_full_out (), [0, 1, 2, 3, 4]);
32 is_deeply (Regress::test_array_int_none_out (), [1, 2, 3, 4, 5]);
33 Regress::test_array_int_null_in (undef);
34 is (Regress::test_array_int_null_out, undef);
37 is_deeply (Regress::test_glist_nothing_return (), $test_list);
38 is_deeply (Regress::test_glist_nothing_return2 (), $test_list);
39 is_deeply (Regress::test_glist_container_return (), $test_list);
40 is_deeply (Regress::test_glist_everything_return (), $test_list);
41 Regress::test_glist_nothing_in ($test_list);
42 Regress::test_glist_nothing_in2 ($test_list);
43 Regress::test_glist_null_in (undef);
44 is (Regress::test_glist_null_out (), undef);
46 is_deeply (Regress::test_gslist_nothing_return (), $test_list);
47 is_deeply (Regress::test_gslist_nothing_return2 (), $test_list);
48 is_deeply (Regress::test_gslist_container_return (), $test_list);
49 is_deeply (Regress::test_gslist_everything_return (), $test_list);
50 Regress::test_gslist_nothing_in ($test_list);
51 Regress::test_gslist_nothing_in2 ($test_list);
52 Regress::test_gslist_null_in (undef);
53 is (Regress::test_gslist_null_out (), undef);
172   my $obj = Regress::TestObj->constructor ();