Skip to content

Instantly share code, notes, and snippets.

@dagolden
dagolden / 01-fails.t
Created November 4, 2014 18:46
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
dagolden / nopaste
Created November 4, 2014 18:42
t
├── 01-fails.t
├── 02-passes.t
└── tmp
└── t_01-fails_t
├── default_1
├── in_loop_1
├── in_loop_2
└── in_loop_3
@dagolden
dagolden / Tiny.pm
Created November 4, 2014 18:39
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
dagolden / replicaset-2.7-large.yml
Created October 29, 2014 21:43
---
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
dagolden / new.pl
Last active August 29, 2015 14:08
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
dagolden / nopaste
Created October 15, 2014 20:54
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
dagolden / nopaste
Created October 15, 2014 20:54
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
dagolden / gist:5e7d26c1c53ce998e09c
Created September 23, 2014 14:16
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
dagolden / gist:89b281169e8a6d09757a
Created September 22, 2014 17:56
>>> 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
dagolden / gist:a357ffe3eb5904f4c8fe
Created September 22, 2014 17:55
>>> 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"