← Back to branch summary

~ubuntu-branches/ubuntu/trusty/libintl-perl/trusty

« back to all changes in this revision

Viewing changes to test.pl

  • Committer: Package Import Robot
  • Author(s): Peter Eisentraut
  • Date: 2013-06-29 21:23:42 UTC
  • mfrom: (1.2.3)
  • Revision ID: package-import@ubuntu.com-20130629212342-3te0y4h5x26hb79b
Tags: 1.23-1
* New upstream release
* Updated standards version
* Changed to Debhelper level 9
* Added build-arch and build-indep targets
* Fixed application of Debian build flags for hardening

Show diffs side-by-side

added added

removed removed

Lines of Context:
test.pl
1
1
#! /usr/local/bin/perl -w
2
2
 
3
3
# vim: tabstop=4
4
 
# $Id$
5
4
 
6
5
# Portable character conversion for Perl.
7
 
# Copyright (C) 2002-2009 Guido Flohr <guido@imperia.net>,
 
6
# Copyright (C) 2002-2013 Guido Flohr <guido@imperia.net>,
8
7
# all rights reserved.
9
8
 
10
9
# This program is free software; you can redistribute it and/or modify it
95
94
                unless ($has_de_locale) {
96
95
                        $xs_disabled = 1;
97
96
                        print <<EOF;
98
 
The XS version of libintl-perl cannot be tested on your system because
99
 
the locale definitions for German do not exist.
 
97
The translation features of libintl-perl cannot be tested on your
 
98
system because the locale definitions for German do not exist.
100
99
EOF
101
100
                }
102
101
                $xs_disabled = !$has_de_locale;
103
102
        }
104
103
 
105
104
        if ($xs_disabled) {
106
 
                Test::Harness::runtests (grep { ! /_xs.t$/ } sort 
 
105
                Test::Harness::runtests (grep { ! /03[a-z_]+_(?:pp|xs)\.t$/ } sort 
107
106
                        {lc $a cmp lc $b } @ARGV);
108
107
        } else {
109
108
                Test::Harness::runtests (sort {lc $a cmp lc $b } @ARGV);