[perl-Gtk2] Fix GtkPrintSettings.t failures
- From: Torsten Schönfeld <tsch src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [perl-Gtk2] Fix GtkPrintSettings.t failures
- Date: Sun, 28 Feb 2010 14:24:32 +0000 (UTC)
commit 07fc971d35209e5271982a2f8c0eb67383fcaf3b
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date: Sun Feb 28 15:24:11 2010 +0100
Fix GtkPrintSettings.t failures
Don't assume 0 for the default values of get_printer_lpi(),
get_resolution_x() and _y(). Fixes RT #50190.
t/GtkPrintSettings.t | 7 ++-----
1 files changed, 2 insertions(+), 5 deletions(-)
---
diff --git a/t/GtkPrintSettings.t b/t/GtkPrintSettings.t
index a4b5781..2bd7a1d 100644
--- a/t/GtkPrintSettings.t
+++ b/t/GtkPrintSettings.t
@@ -1,7 +1,7 @@
#!/usr/bin/perl -w
use strict;
use Gtk2::TestHelper
- tests => 26,
+ tests => 23,
at_least_version => [2, 10, 0, 'GtkPrintSettings: it is new in 2.10'];
# $Id$
@@ -113,17 +113,14 @@ SKIP: {
}
SKIP: {
- skip 'new 2.16 stuff', 6
+ skip 'new 2.16 stuff', 3
unless Gtk2->CHECK_VERSION(2, 16, 0);
my $settings = Gtk2::PrintSettings -> new();
- is($settings -> get_printer_lpi(), 0);
$settings -> set_printer_lpi(3.1416);
delta_ok($settings -> get_printer_lpi(), 3.1416);
- is($settings -> get_resolution_x(), 0);
- is($settings -> get_resolution_y(), 0);
$settings -> set_resolution_xy(10, 20);
is($settings -> get_resolution_x(), 10);
is($settings -> get_resolution_y(), 20);
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]