Emacs-Run

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

                                 'Test::More'          => 0,
                                 'Class::Base'         => 0.03,
                                 'Data::Dumper'        => 0,
                                 'File::Spec'          => 0,
                                 'File::Basename'      => 0,
                                 'File::Copy'          => 0,
                                 'File::Temp'          => 0,
                                 'Hash::Util'          => 0,
                                 'List::MoreUtils'     => 0,
                                 'List::Util'          => 0,
                                 'Test::Differences'   => 0,
                                 'lib'                 => 0,
                                 'base'                => 0,
                                 'strict'              => 0,
                                 'warnings'            => 0,
                                 },
    add_to_cleanup      => [ 'Emacs-Run-*' ],
    create_makefile_pl => 'traditional',
);

# No longer in use:

META.yml  view on Meta::CPAN

build_requires:
  Class::Base: 0.03
  Data::Dumper: 0
  File::Basename: 0
  File::Copy: 0
  File::Spec: 0
  File::Temp: 0
  Hash::Util: 0
  List::MoreUtils: 0
  List::Util: 0
  Test::Differences: 0
  Test::More: 0
  base: 0
  lib: 0
  strict: 0
  warnings: 0
provides:
  Emacs::Run:
    file: lib/Emacs/Run.pm
    version: 0.15
generated_by: Module::Build version 0.3

Makefile.PL  view on Meta::CPAN

          'PREREQ_PM' => {
                           'Class::Base' => '0.03',
                           'Data::Dumper' => 0,
                           'File::Basename' => 0,
                           'File::Copy' => 0,
                           'File::Spec' => 0,
                           'File::Temp' => 0,
                           'Hash::Util' => 0,
                           'List::MoreUtils' => 0,
                           'List::Util' => 0,
                           'Test::Differences' => 0,
                           'Test::More' => 0,
                           'base' => 0,
                           'lib' => 0,
                           'strict' => 0,
                           'warnings' => 0
                         },
          'INSTALLDIRS' => 'site',
          'EXE_FILES' => [],
          'PL_FILES' => {}
        )

README  view on Meta::CPAN

This module depends on having GNU/Emacs installed on the system
(it is unlikely to work with xemacs).

This module requires these other modules and libraries:
   Class::Base
   List::MoreUtils
   File::Temp

The tests require:
   Test::Differences
   Test::More

Note: dependecy on IPC::Capture has been dropped as of version 0.13.

SUPPORT AND DOCUMENTATION

After installing, you can find documentation for this module with the
perldoc command.

    perldoc Emacs::Run

t/02-parse_emacs_version_strings.t  view on Meta::CPAN

#   doom@kzsu.stanford.edu     2008/03/08 06:36:39

use warnings;
use strict;
$|=1;
my $DEBUG = 0;  # TODO set to 0 before ship
use Data::Dumper;
use File::Copy qw( copy );
use Test::More;

use Test::Differences;

use FindBin qw( $Bin ); #
use lib "$Bin/../lib";
use Emacs::Run;  # can't use "use_ok", no plan yet

## Globals
# A basic Emacs::Run object
my $ER = Emacs::Run->new(
   #                     { emacs_path => 'uncomment_this_to_skip_all_tests',}
                        );

t/03-distinguish_lib_or_file.t  view on Meta::CPAN

use warnings;
use strict;
$|=1;
use Data::Dumper;
use File::Copy qw( copy );
use File::Basename qw( fileparse basename dirname );
use File::Spec;
use List::Util qw( first );
use Test::More;
use Test::Differences;

use FindBin qw( $Bin );
use lib "$Bin/../lib";
use lib "$Bin/lib";

# Globals
my $DEBUG = 0;  # TODO set to 0 before ship
my $CHOMPALOT = 1;
my $CLASS   = 'Emacs::Run';
my $devnull = File::Spec->devnull;

t/04-working_with_emacs.t  view on Meta::CPAN

#   doom@kzsu.stanford.edu     2008/03/08 06:36:39

use warnings;
use strict;
$|=1;
my $DEBUG = 0;
use Data::Dumper;
use File::Copy qw( copy );
use File::Basename qw( fileparse basename dirname );
use Test::More;
use Test::Differences;

use FindBin qw( $Bin );
use lib "$Bin/../lib";
use lib "$Bin/lib";
use Emacs::Run::Testorama qw( :all );

# TODO comment out before shipping
# my $SPOT;
# BEGIN {
#   $SPOT = '/home/doom/End/Cave/EmacsPerl/Wall';

t/06-setting_redirector.t  view on Meta::CPAN

use warnings;
use strict;
$|=1;
my $DEBUG = 0; # TODO set to 0 before ship
use Data::Dumper;
use File::Copy qw( copy );
use File::Basename qw( fileparse basename dirname );
use File::Spec;
use Test::More;
use Test::Differences;

use FindBin qw( $Bin );
use lib "$Bin/../lib";
use lib "$Bin/lib";
use Emacs::Run::Testorama qw( :all );

# Globals
my $CLASS   = 'Emacs::Run';
my $SRC_LOC = "$Bin/dat/src";
my $USR     = "$Bin/dat/usr";

t/08-setting_shell_output_director.t  view on Meta::CPAN

use warnings;
use strict;
$|=1;
my $DEBUG = 0;
use Data::Dumper;
use File::Copy qw( copy );
use File::Basename qw( fileparse basename dirname );
use File::Spec;
use Test::More;
use Test::Differences;

use FindBin qw( $Bin );
use lib "$Bin/../lib";
use lib "$Bin/lib";
use Emacs::Run::Testorama qw( :all );

# comment out before shipping
# my $SPOT;
# BEGIN {
#   $SPOT = '/home/doom/End/Cave/EmacsPerl/Wall';

t/lib/Emacs/Run/Testorama.pm  view on Meta::CPAN

of a file munging operation to an archived copy of the expected
results.

Example usage:

  my ($result, $expected) = slurp_files($result_file, $expected_file);

  eq_or_diff( $result, $expected,
              "$test_name: checking effects of upcase-region on $result_file");

  # Note: presumes Test::Differences is in use.

=cut


sub slurp_files {
  my $result_file   = shift;
  my $expected_file = shift;

  # open each file, slurp in.
  local $/; # mister slurpie