← Back to branch summary

~ubuntu-branches/ubuntu/saucy/padre/saucy-proposed

« back to all changes in this revision

Viewing changes to t/16-messages.t

  • Committer: Package Import Robot
  • Author(s): Dominique Dumont, gregor herrmann, Dominique Dumont
  • Date: 2012-01-04 12:04:20 UTC
  • mfrom: (1.3.3)
  • Revision ID: package-import@ubuntu.com-20120104120420-i5oybqwf91m1d3il
Tags: 0.92.ds1-1
[ gregor herrmann ]
* Remove debian/source/local-options; abort-on-upstream-changes
  and unapply-patches are default in dpkg-source since 1.16.1.
* Swap order of alternative (build) dependencies after the perl
  5.14 transition.

[ Dominique Dumont ]
* Imported Upstream version 0.92.ds1
* removed fix-spelling patch (applied upstream)
* lintian-override: use wildcard to avoid listing a gazillion files
* updated size of some 'not-real-man-page' entries
* rules: remove dekstop cruft (replaced by a file provided in debian
  directory)
* control: removed Breaks statement. Add /me to uploaders. Updated
  dependencies
* rules: make sure that non-DFSG file (i.e. the cute butterfly, sigh)
  is not distributed

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/16-messages.t
1
 
#!/usr/bin/perl
2
 
 
3
 
use strict;
4
 
use warnings;
5
 
use Test::More;
6
 
use Cwd qw(cwd);
7
 
use File::Spec ();
8
 
 
9
 
use t::lib::Padre;
10
 
 
11
 
# a few sample strings some of them disappeard from messages.pot during the release of 0.82
12
 
# See ticket #1132
13
 
my @strings = (
14
 
        q(msgid "Open in File Browser"),               # File/Open/
15
 
        q(msgid "Clear Selection Marks"),              # Edit/Select/
16
 
        q(msgid "&Full Screen"),                       # View/
17
 
        q(msgid "Quick Menu Access..."),               # Search/
18
 
        q(msgid "Check for Common (Beginner) Errors"), # Perl/
19
 
        q(msgid "Find Unmatched Brace"),               # Perl/
20
 
        q(msgid "Move POD to __END__"),                # Refactor/
21
 
        q(msgid "Run Script"),                         # Run/
22
 
        q(msgid "Dump the Padre object to STDOUT"),    # internal
23
 
 
24
 
        q("The file %s you are trying to open is %s bytes large. It is over the "), # Padre::Document
25
 
        q("arbitrary file size limit of Padre which is currently %s. Opening this file "),
26
 
        q("may reduce performance. Do you still want to open the file?"),
27
 
 
28
 
        q(msgid "%s - Crashed while instantiating: %s"),                            # Padre::PluginManager
29
 
 
30
 
        q(msgid "Default word wrap on for each file"),                              # Padre::Wx::Dialog::Preferences
31
 
        q(msgid "Any non-word character"),                                          #: lib/Padre/Wx/Dialog/RegexEditor.pm:78
32
 
);
33
 
 
34
 
plan tests => scalar @strings;
35
 
 
36
 
my $messages_pot = File::Spec->catfile( cwd(), 'share', 'locale', 'messages.pot' );
37
 
open my $fh, '<', $messages_pot or die "Could not open '$messages_pot' $!";
38
 
my @messages = <$fh>;
39
 
close $fh;
40
 
foreach my $str (@strings) {
41
 
        ok grep( { $_ =~ /\Q$str/ } @messages ), "messages.pot has entry '$str'";
42
 
}
43