File: GnomeDruid.t

package info (click to toggle)
libgnome2-perl 1.045-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 608 kB
  • ctags: 12
  • sloc: perl: 1,145; ansic: 16; makefile: 4
file content (126 lines) | stat: -rw-r--r-- 3,966 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
#!/usr/bin/perl -w
use strict;
use Gnome2;

use constant TESTS => 17;
use Test::More tests => TESTS;

# $Id$

###############################################################################

SKIP: {
  our $application;
  do "t/TestBoilerplate";

  #############################################################################

  my ($druid,
      $druid_window) = Gnome2::Druid -> new_with_window("Bleh", undef, 1);
  isa_ok($druid, "Gnome2::Druid");
  isa_ok($druid_window, "Gtk2::Window");

  $druid = Gnome2::Druid -> new();
  isa_ok($druid, "Gnome2::Druid");

  $druid -> set_buttons_sensitive(1, 1, 1, 1);
  $druid -> set_show_finish(0);
  $druid -> set_show_help(1);

  #############################################################################

  my $dummy = Gnome2::DruidPage -> new();

  foreach (qw(back cancel finish prepare next)) {
    $dummy -> signal_connect($_ => sub { ok(1); return 1; });
  }

  $dummy -> back();
  $dummy -> cancel();
  $dummy -> finish();
  $dummy -> prepare();
  $dummy -> next();

  #############################################################################

  my $first = Gnome2::DruidPageEdge -> new_aa("start");
  isa_ok($first, "Gnome2::DruidPageEdge");

  $first = Gnome2::DruidPageEdge -> new_with_vals("start", 1, "Blub", "Bla Blub");
  isa_ok($first, "Gnome2::DruidPageEdge");

  $first = Gnome2::DruidPageEdge -> new("start");
  isa_ok($first, "Gnome2::DruidPageEdge");

  $first -> set_bg_color(Gtk2::Gdk::Color -> new(0, 255, 0));
  $first -> set_textbox_color(Gtk2::Gdk::Color -> new(255, 0, 0));
  $first -> set_logo_bg_color(Gtk2::Gdk::Color -> new(0, 0, 255));
  $first -> set_title_color(Gtk2::Gdk::Color -> new(255, 255, 0));
  $first -> set_text_color(Gtk2::Gdk::Color -> new(0, 255, 255));

  $first -> set_text("Schmih");
  $first -> set_title("Schmuh");

  $first -> set_logo(undef);
  $first -> set_watermark(undef);
  $first -> set_top_watermark(undef);

  #############################################################################

  my $middle = Gnome2::DruidPageStandard -> new_with_vals("Blub");
  isa_ok($middle, "Gnome2::DruidPageStandard");
  isa_ok($middle -> vbox(), "Gtk2::VBox");

  $middle = Gnome2::DruidPageStandard -> new();
  isa_ok($middle, "Gnome2::DruidPageStandard");

  $middle -> set_background(Gtk2::Gdk::Color -> new(0, 255, 0));
  $middle -> set_logo_background(Gtk2::Gdk::Color -> new(0, 0, 255));
  $middle -> set_title_foreground(Gtk2::Gdk::Color -> new(255, 255, 0));

  SKIP: {
    skip("set_contents_background was broken prior to 2.8", 0)
      unless (Gnome2 -> CHECK_VERSION(2, 8, 0));

    $middle -> set_contents_background(Gtk2::Gdk::Color -> new(255, 255, 0));
  }

  $middle -> set_title("Schmuh");

  $middle -> set_logo(undef);
  $middle -> set_top_watermark(undef);

  $middle -> append_item("What?", Gtk2::Label -> new("Hrmpf!"), "Really!");

  #############################################################################

  my $last = Gnome2::DruidPageEdge -> new_aa("finish");
  isa_ok($last, "Gnome2::DruidPageEdge");

  $last = Gnome2::DruidPageEdge -> new_with_vals("finish", 1, "Blub", "Bla Blub");
  isa_ok($last, "Gnome2::DruidPageEdge");

  $last = Gnome2::DruidPageEdge -> new("start");
  isa_ok($last, "Gnome2::DruidPageEdge");

  $last -> set_bg_color(Gtk2::Gdk::Color -> new(0, 255, 0));
  $last -> set_textbox_color(Gtk2::Gdk::Color -> new(255, 0, 0));
  $last -> set_logo_bg_color(Gtk2::Gdk::Color -> new(0, 0, 255));
  $last -> set_title_color(Gtk2::Gdk::Color -> new(255, 255, 0));
  $last -> set_text_color(Gtk2::Gdk::Color -> new(0, 255, 255));

  $last -> set_text("Schmih");
  $last -> set_title("Schmuh");

  $last -> set_logo(undef);
  $last -> set_watermark(undef);
  $last -> set_top_watermark(undef);

  #############################################################################

  $druid -> prepend_page($first);
  $druid -> insert_page($first, $middle);
  $druid -> append_page($last);

  $druid -> set_page($middle);
}