← Back to branch summary

~ubuntu-branches/ubuntu/quantal/padre/quantal

« back to all changes in this revision

Viewing changes to t/85-commandline.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/85-commandline.t
1
 
#!/usr/bin/perl
2
 
 
3
 
use strict;
4
 
use warnings;
5
 
use Test::More tests => 2 + 1;
6
 
use FindBin qw($Bin);
7
 
use File::Spec ();
8
 
use File::Temp qw(tempdir);
9
 
use Test::NoWarnings;
10
 
 
11
 
# Testing the stand-alone Padre::Util::CommandLine
12
 
 
13
 
my $files_dir = tempdir( CLEANUP => 1 );
14
 
mkdir File::Spec->catdir( $files_dir, 'beginner' );
15
 
foreach my $file ('Debugger.pm') {
16
 
        open my $fh, '>', File::Spec->catfile( $files_dir, $file );
17
 
        close($fh);
18
 
}
19
 
 
20
 
use Padre::Util::CommandLine;
21
 
use Cwd qw(abs_path);
22
 
{
23
 
        no warnings;
24
 
        sub Cwd::cwd {$files_dir}
25
 
}
26
 
 
27
 
 
28
 
is Padre::Util::CommandLine::tab(':e'),             ':e Debugger.pm', 'TAB 1';
29
 
is Padre::Util::CommandLine::tab(':e Debugger.pm'), ':e beginner/',   'TAB 2';