dagolden

use 5.008001;
use strict;
use warnings;
use Test::More 0.96;
use Test::FailWarnings -allow_deps => 1;
use lib 'lib';
use Test::TempDir::Tiny;

my $dir = tempdir;

dagolden

t
├── 01-fails.t
├── 02-passes.t
└── tmp
    └── t_01-fails_t
        ├── default_1
        ├── in_loop_1
        ├── in_loop_2
        └── in_loop_3

dagolden

use v5.10;
use strict;
use warnings;

package Test::TempDir::Tiny;
# ABSTRACT: goes here
our $VERSION = '0.001';

use parent 'Exporter';
our @EXPORT = qw/tempdir/;

dagolden

---
type: replica
setName: foo
default_args: -v --noprealloc --nojournal --smallfiles --nohttpinterface --nssize 6 --quiet
default_version: 2.7.8
mongod:
    - name: host1
    - name: host2
    - name: host3
    - name: host4

dagolden

use strict;
use warnings;
use Time::HiRes qw/gettimeofday tv_interval/;
use List::Util qw/sum0/;

use constant {
    ADD       => 0,
    SUBSTRACT => 1,
    MULTIPLY  => 2,
    DEVIDE    => 3,

dagolden

Subroutine Eval::TypeTiny::import redefined at /Users/david/.plenv/versions/20.0/lib/perl5/site_perl/5.20.0/Eval/TypeTiny.pm line 41.
	Eval::TypeTiny::import("Eval::TypeTiny", "eval_closure") called at /Users/david/.plenv/versions/20.0/lib/perl5/site_perl/5.20.0/Type/Library.pm line 12
	Type::Library::BEGIN() called at /Users/david/.plenv/versions/20.0/lib/perl5/site_perl/5.20.0/Type/Library.pm line 12
	eval {...} called at /Users/david/.plenv/versions/20.0/lib/perl5/site_perl/5.20.0/Type/Library.pm line 12
	require Type/Library.pm called at /Users/david/.plenv/versions/20.0/lib/perl5/site_perl/5.20.0/Types/Standard.pm line 18
	Types::Standard::BEGIN() called at /Users/david/.plenv/versions/20.0/lib/perl5/site_perl/5.20.0/Type/Library.pm line 12
	eval {...} called at /Users/david/.plenv/versions/20.0/lib/perl5/site_perl/5.20.0/Type/Library.pm line 12
	require Types/Standard.pm called at lib/Authen/SCRAM/Client.pm line 17
	Authen::SCRAM::Client::BEGIN() called at /Users/david/.plenv/versions/20.0/lib/perl5/sit

dagolden

ok 1 - require Authen::SCRAM::Client;
    # Subtest: constructors
    ok 1 - default digest
    ok 2 - username attribute
    ok 3 - password attribute
    ok 4 - nonce size attribute
    ok 5 - digest set correctly to SHA-1
    ok 6 - digest set correctly to SHA-224
    ok 7 - digest set correctly to SHA-256
    ok 8 - digest set correctly to SHA-384

dagolden

2014-06-03 15:31:58 xdg unrelatedly, got a few minutes to talk about Test::Roo|Routine?
2014-06-03 15:32:26 rjbs    I think so, sure.
2014-06-03 15:33:00 xdg I'd really like to implement tags to be able to run subsets of tests.
2014-06-03 15:33:08 rjbs    nod
2014-06-03 15:33:28 rjbs    test name => ... => sub { ... }; # ?
2014-06-03 15:33:29 xdg E.g. "$ R=foo,bar prove"
2014-06-03 15:33:34 rjbs    yeah
2014-06-03 15:33:54 xdg test name => qw/foo wibble/ => sub { ... } is really clean, but not very future extensible
2014-06-03 15:34:01 rjbs    I'd do this:
2014-06-03 15:34:07 rjbs    [ qw/foo wibble/ ]

dagolden

>>> Perl w/ Inline::CPP: perl test/test.inline-cpp.pl
��
Ingystray ingythay
Iway Ikelay Applesway
--- test/want   2014-09-22 13:49:30.000000000 -0400
+++ test/got    2014-09-22 13:55:51.000000000 -0400
@@ -1,3 +1,3 @@
-Igpay atinlay
+��
 Ingystray ingythay

dagolden

>>> Tcl: tclsh test/test.tcl
can't find package TclOO
    while executing
"package require TclOO"
    (file "lib/Pig/Latin.tcl" line 2)
    invoked from within
"source lib/Pig/Latin.tcl"
    ("package ifneeded Pig::Latin 0.0.1" script)
    invoked from within
"package require Pig::Latin"