scip/note
1
0
Fork 0
mirror of https://codeberg.org/scip/note.git synced 2025-12-16 20:21:04 +01:00
Code Issues Packages Projects Releases Wiki Activity

ADDED: Added test cases for "make test"

Browse Source 
ADDED:          Added test for optional and required perl modules in
                Makefile.PL
FIXED:          NOTEDB::dumper version string were wrong, therefore
                cpan didn't index is properly.
This commit is contained in:
TLINDEN
2012-02-10 20:35:44 +01:00
parent 08cb2a0962
commit a5188ae5da
7 changed files with 97 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Changelog
View File

@@ -1,3 +1,10 @@
1.3.6:
ADDED: Added test cases for "make test"
ADDED: Added test for optional and required perl modules in
Makefile.PL
FIXED: NOTEDB::dumper version string were wrong, therefore
cpan didn't index is properly.
================================================================================
1.3.5:
FIXED: Applied patch by Elmar Loos which fixes misbehavior for
-t and -T (identical output)

32
Makefile.PL
View File

@@ -1,7 +1,39 @@
use ExtUtils::MakeMaker;
my %optional = (
'Crypt::CBC' => "Required by encryption support",
'Crypt::Rijndael' => "Required by encryption support",
'Data::Dumper' => "Required by dumper DB backend",
'MIME::Base64' => "Required by varios optional backends",
'Storable' => "Required by text DB backend",
'Config::General' => "Required by general DB backend",
'DB_File' => "Required by dbm DB backend",
'DBI' => "Required by mysql DB backend",
'DBD::mysql' => "Required by mysql DB backend"
);
foreach my $module (sort keys %optional) {
eval "require $module";
if ($@) {
warn("Optional module $module no installed, $optional{$module}\n");
}
}
WriteMakefile(
'NAME' => 'NOTEDB',
'VERSION_FROM' => 'NOTEDB.pm', # finds $VERSION
'EXE_FILES' => [ 'bin/note' ],
'PREREQ_PM' => {
'IO::File' => 0,
'FileHandle' => 0,
'File::Spec' => 0,
'File::Glob' => 0,
'FileHandle' => 0,
'Getopt::Long' => 0,
'Fcntl' => 0,
'IO::Seekable' => 0,
},
($ExtUtils::MakeMaker::VERSION ge '6.31'? ('LICENSE' => 'perl', ) : ()),
'clean' => { FILES => 't/*.out t/test.cfg *~ */*~' }
);

4
NOTEDB/binary.pm
View File

@@ -8,9 +8,9 @@ package NOTEDB::binary;
$NOTEDB::binary::VERSION = "1.10";
use strict;
#use Data::Dumper;
use IO::Seekable;
use File::Spec;
use FileHandle;
use Fcntl qw(LOCK_EX LOCK_UN);
use NOTEDB;
@@ -77,7 +77,7 @@ sub set_del_all
sub get_single {
my($this, $num) = @_;
my($address, $note, $date, $buffer, $n, $t, $buffer, );
my($address, $note, $date, $n, $t, $buffer, );
open NOTE, "+<$this->{NOTEDB}" or die "could not open $this->{NOTEDB}\n";
flock NOTE, LOCK_EX;

2
NOTEDB/dumper.pm
View File

@@ -4,7 +4,7 @@
package NOTEDB::dumper;
$NOTEDB::text::VERSION = "1.00";
$NOTEDB::dumper::VERSION = "1.01";
use strict;
use Data::Dumper;

2
bin/note
View File

@@ -140,7 +140,7 @@ $CONF = File::Spec->catfile($ENV{HOME}, ".noterc");
$USER = getlogin || getpwuid($<);
chomp $USER;
$TOPIC = 1;
$version = "1.3.5";
$version = "1.3.6";
$CurDepth = 1; # the current depth inside the topic "directory" structure...
$maxlen = "auto";
$timelen = 22;

2
note.pod
View File

@@ -530,6 +530,6 @@ Thomas Linden <tom at linden dot at>
=head1 VERSION
1.3.5 (07/19/2009)
1.3.6 (07/20/2009)
=cut

53
t/run.t Normal file
View File

@@ -0,0 +1,53 @@
# -*-perl-*-
use Test::More tests => 8;
#use Test::More qw(no_plan);
BEGIN { use_ok "NOTEDB" };
require_ok("NOTEDB");
require_ok("NOTEDB::binary");
my $db = new NOTEDB::binary(dbname => "t/1.out");
ok(ref($db), "Database object loaded");
my $r = $db->set_new(1, "any new text", "23.12.2000 10:33:02");
ok($r, "true");
my $next = $db->get_nextnum();
if ($next == 2) {
pass("Get next note id");
}
else {
fail("Get next note id");
}
my ($note, $date) = $db->get_single(1);
if ($note =~ /any new text/) {
ok("Reading note");
}
else {
fail("Reading note");
}
my $expect = {
1 => {
'date' => '23.12.2000 10:33:02',
'note' => 'any new text'
}
};
my %all = $db->get_all();
is_deeply($expect, \%all, "Get all notes hash");