belden

A few thoughts on testing:

• If you're used to PHPunit, then you might find Test::Class to be analogous.
• However, if you're not going to use the different features of Test::Class (namely: being able to subclass your test classes), then you'll probably get a lot of mileage out of just using Test::More or Test::Most.

Here's a quick rundown of the features that I see these three providing.

module	ships with perl	ease of use	like phpunit
Test::More	yes	high	no

belden

Let's say you've got this code:

{
  package math;

  sub add {
    my ($left, $right) = @_;   # Look, I am a function

    return $left + $right;

belden

#!/usr/bin/env perl

use strict;
use warnings;

use Data::Dumper;

my @sparse;
$sparse[0] = 'start';
$sparse[3] = undef;

belden

;; this could use some improvement
;;
;; - it doesn't clean up the temp file
;; - it doesn't ensure there's a selected region
;; - etc.
;;
(defun logan/run-selected-golang-code ()
  "run the selected code as though it is golang code"
  (interactive)
  (let ((tempfile (format "%s.go" (make-temp-file "logan-golang"))))

belden

http://support.lenovo.com/us/en/products/laptops-and-netbooks/thinkpad-x-series-laptops/thinkpad-x1-carbon-20bs-20bt//downloads/DS101975

belden

Playing around on the train this morning:

drop function if exists belden_redef();
create function belden_redef()
returns bool
as
$$
begin
 raise notice 'now you see me...';

belden

use strict;
use warnings;
package Deathly::Hallows;

# Add a hook to force `use warnings (FATAL => 'all');` at the head of
# all Adama modules.
#
# 'perldoc -f require' will tell you about adding coderef hooks to @INC.
#
# Note that this toy module doesn't keep itself at the head of @INC, which

belden

#!/usr/bin/env perl                                                                                                                                                                                                                 

# use this in the debugger to find a package that implements some name
# to use this:
# 1. download to a local file
#    curl https://gist.githubusercontent.com/belden/af7ea7857243743125ed/raw/76b350faaa6ec586f15d426e78d5a5f374783d5a/findsub.pl > /tmp/findsub.pl
# 2. load it up in the debugger
#    DB<28> do '/tmp/findsub.pl'
# 3. use it
#    DB<29> main::findsub 'prepare_body'

belden

(defun adama-run-test ()
  "Run a file with run_tests"
  (interactive)
  (setq compile-rpf-command (concat "/home/dev/bin/development-tools/run_tests --verbose " (buffer-file-name)))
  (message "compile-rpf-command: %s" compile-rpf-command)
  (compile compile-rpf-command)
  (other-window 1)
  (toggle-read-only)
  (other-window 1))

belden

#!/usr/bin/env perl                                                                                                               

# this file is broken

use strict;
use warnings;

{
  package My::Base;
  use Moose;