jacoby

I'm writing tests, and I'm coding tests as non-test code before I put them into
my test file.

This code uses Perl objects (non-Moose; haven't made it to there yet) to handle
DBI connections, so I can do things like put my example code in GitHub gists 
without being worried that server addresses, logins and passwords were accidentally
left in the code.

Right now, I'm trying to write tests for this module, and my biggest problem atm is 
finding a way to test transactions against an existing MySQL database so I'm not 

jacoby

# I plan to redo this as YAML but have yet to
# identity , server                     , port , username                        , password      , directory
gmail      , imap.gmail.com             , 993  , your_username                   , password      , INBOX

jacoby

#!/usr/bin/env perl

use feature qw'say state' ;
use subs qw'uniq' ;
use Data::Dumper ;

use JSON ;
use LWP::UserAgent ;
use Test::Most ;

jacoby

my $data ;
my $c = 0 ;

for ( 1 .. 3_000 ) {
    my $row ;
    for ( 1 .. 10) {
        push @$row , $c ;
        $c = ( $c + 1 ) % 8 ;
        }
    push @$data , $row ;

jacoby

package Multi ;

use Class::Multimethods ;
use Exporter qw(import) ;

our @EXPORT = qw{
    test 
    } ;

multimethod test    => ()

jacoby

#!/usr/bin/env perl

use feature qw{ say state } ;
use strict ;
use warnings ;

use Data::Dumper ;

my @alphabet = 'a' .. 'z' ;

jacoby

#!/usr/bin/env perl
use feature qw{ say } ;
use Term::ReadKey ;
my ( $wchar, $hchar ) = GetTerminalSize() ;
for ( 2 .. $hchar ) {
    say join '' , map { ( 'a' .. 'z' )[ int rand 26 ] } 1 .. $wchar ;
    }

jacoby

PS1="${debian_chroot:+($debian_chroot)}\u@\h:\$(~/bin/get_temp.pl):\w\n\$ "

jacoby

#!/usr/bin/env perl

use feature qw'say' ;
use strict ;
use warnings ;

use DateTime ;
use Data::Dumper ;

use lib '/home/jacoby/lib' ;

jacoby

#!/usr/bin/env perl

use feature qw'say' ;
use strict ;
use warnings ;
use Data::Translate ;

my $data = new Data::Translate;

# allows a2b.pl foobarblee or echo foobarblee | a2b.pl