← Back to branch summary

~ubuntu-branches/ubuntu/wily/padre/wily

« back to all changes in this revision

Viewing changes to t/50-docbrowser.t

  • Committer: Bazaar Package Importer
  • Author(s): Damyan Ivanov
  • Date: 2009-08-12 14:44:55 UTC
  • mfrom: (1.1.5 upstream)
  • Revision ID: james.westby@ubuntu.com-20090812144455-yvk90oa92khfcnls
Tags: 0.42-1
* New Upstream Version
  + add explicit dependency on libtest-simple-perl (>= 0.88)
  + rules: use dh --with quilt (and bump quilt build-dependency to 0.46-7)
  + rules: no need to re-generate .mo files from .po. Upstream does it now
  + copyright: describe share/icons/padre/16x16/logo.png
    - describe share/icons/padre/16x16/toggle-comments.png
    - Padre license is the same as Perl (i.e. not Perl 5)
    - update list of copright holders
    - also list translators
  + drop libtest-most-perl from build-dependencies
  + add liblocale-msgfmt-perl to build-dependencies
  + add libcapture-tiny-perl to (build-)dependencies
  + add libfile-remove-perl (>= 1.42) to (build-)dependencies
  + drop libmodule-inspector-perl from (build-)dependencies
  + add libppix-editortools-perl to (build-)dependencies
  + add libparse-exuberantctags-perl to (build-)dependencies
  + patches:
    - drop lower-wx-requirement-to-2.8.7.patch and replace it with
      SKIP_WXWIDGETS_VERSION_CHECK=1 when configuring
      adjust README.debian accordingly
    - refresh disable-tcp-server.patch
    - drop don't-require-new-file-path.patch (applied upstream)
    - rework fix-pod2-errors.patch (new release, new errors :))
* add fix-perl-interpreter-path.patch fixing the path to the perl interpreter
  in three examples (thanks lintian)
* add more lintian overrides about script-not-executable for scripts that are
  treated as examples/templates
* add fix-whatis.patch fixing the whatis entry of Padre::Wx
* add menu and .desktop file

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/50-docbrowser.t
2
2
 
3
3
use strict;
4
4
use Test::More;
5
 
BEGIN { plan skip_all => 'skipped for release until we got status/padre-fallback-icon sorted out'; } 
6
5
BEGIN {
7
 
        if (not $ENV{DISPLAY} and not $^O eq 'MSWin32') {
 
6
        unless ( $ENV{DISPLAY} or $^O eq 'MSWin32') {
8
7
                plan skip_all => 'Needs DISPLAY';
9
8
                exit 0;
10
9
        }
 
10
        unless ( $< ) {
 
11
                plan skip_all => 'Cannot run as root';
 
12
                exit 0;
 
13
        }
11
14
}
12
15
 
13
 
plan( 'no_plan' );
 
16
plan tests => 14;
14
17
 
15
18
use Test::NoWarnings;
16
19
use File::Spec::Functions qw( catfile );
40
43
my $tm = $db->resolve( URI->new( 'perldoc:Test::More' ) );
41
44
isa_ok( $tm , 'Padre::DocBrowser::document' );
42
45
ok( $tm->mimetype eq 'application/x-pod' , 'Resolve from uri' );
43
 
 
 
46
cmp_ok( $tm->title , 'eq' , 'Test::More' , 'Doc title discovered' );
44
47
 
45
48
my $view = $db->browse( $tm ) ;
46
49
isa_ok( $view , 'Padre::DocBrowser::document' );
47
50
ok( $view->mimetype eq 'text/xhtml' , 'Got html view' );
 
51
cmp_ok( $view->title, 'eq', 'Test::More', 'Title' );
 
52
 
48
53