@@ -1,5 +1,11 @@
Revision history for RPC-EPC
+0.0.9 2014/05/16
+ fixed tests. (thx @SREZIC)
+
+0.0.8 2014/05/07
+ fixed tests and warnings. (thx @syohex)
+
0.0.3 2011/12/26
Corrected perlcritic test.
@@ -4,6 +4,8 @@ ignore.txt
lib/RPC/EPC/Service.pm
Makefile.PL
MANIFEST This list of files
+META.json
+META.yml
README
t/00.load.t
t/01.primitives.t
@@ -13,10 +15,8 @@ t/04.add.t
t/05.errors.t
t/06.query.t
t/07.encode.t
-t/_process.pl
t/_add.pl
t/_echo.pl
t/_errors.pl
t/_methods.pl
-META.yml
-META.json
+t/_process.pl
@@ -4,7 +4,7 @@
"Masashi Sakurai <m.sakurai@kiwanami.net>"
],
"dynamic_config" : 1,
- "generated_by" : "Module::Build version 0.38, CPAN::Meta::Converter version 2.120351",
+ "generated_by" : "Module::Build version 0.4003, CPAN::Meta::Converter version 2.120921",
"license" : [
"perl_5"
],
@@ -16,7 +16,7 @@
"prereqs" : {
"configure" : {
"requires" : {
- "Module::Build" : "0.38"
+ "Module::Build" : "0.40"
}
},
"runtime" : {
@@ -31,7 +31,7 @@
"provides" : {
"RPC::EPC::Service" : {
"file" : "lib/RPC/EPC/Service.pm",
- "version" : "v0.0.7"
+ "version" : "v0.0.11"
}
},
"release_status" : "stable",
@@ -40,5 +40,5 @@
"http://dev.perl.org/licenses/"
]
},
- "version" : "v0.0.7"
+ "version" : "v0.0.11"
}
@@ -4,9 +4,9 @@ author:
- 'Masashi Sakurai <m.sakurai@kiwanami.net>'
build_requires: {}
configure_requires:
- Module::Build: 0.38
+ Module::Build: 0.40
dynamic_config: 1
-generated_by: 'Module::Build version 0.38, CPAN::Meta::Converter version 2.120351'
+generated_by: 'Module::Build version 0.4003, CPAN::Meta::Converter version 2.120921'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -15,7 +15,7 @@ name: RPC-EPC-Service
provides:
RPC::EPC::Service:
file: lib/RPC/EPC/Service.pm
- version: v0.0.7
+ version: v0.0.11
requires:
AnyEvent: 6.1
Data::SExpression: 0.41
@@ -23,4 +23,4 @@ requires:
version: 0
resources:
license: http://dev.perl.org/licenses/
-version: v0.0.7
+version: v0.0.11
@@ -1,4 +1,4 @@
-RPC-EPC version 0.0.2
+RPC-EPC version 0.0.9
An asynchronous remote procedure stack for Emacs.
@@ -26,7 +26,7 @@ DEPENDENCIES
COPYRIGHT AND LICENCE
-Copyright (C) 2011, Masashi Sakurai
+Copyright (C) 2014, Masashi Sakurai
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
@@ -10,3 +10,6 @@ pm_to_blib*
cover_db
pod2htm*.tmp
RPC-EPC-*
+t/perlcritic.t
+t/pod-coverage.t
+t/pod.t
@@ -5,7 +5,7 @@ use strict;
use utf8;
use Carp;
-use version; our $VERSION = qv('0.0.7');
+use version; our $VERSION = qv('0.0.11');
use base 'Exporter';
@@ -409,7 +409,7 @@ RPC::EPC::Service - An Asynchronous Remote Procedure Stack.
=head1 VERSION
-This document describes RPC::EPC::Service version 0.0.4
+This document describes RPC::EPC::Service version 0.0.11
=head1 SYNOPSIS
@@ -31,14 +31,18 @@ is(to_sexp([1,"2",3]), "(1 \"2\" 3)");
# hash
my %a = ('a'=>'b','c'=>'d');
-is(to_sexp(\%a), "((\"c\" . \"d\") (\"a\" . \"b\"))");
+my $got = to_sexp(\%a);
+ok(grep { $_ eq $got } "((\"c\" . \"d\") (\"a\" . \"b\"))", "((\"a\" . \"b\") (\"c\" . \"d\"))");
-is(to_sexp({'a'=>'b','c'=>'d'}), "((\"c\" . \"d\") (\"a\" . \"b\"))");
-is(to_sexp({'a'=>1,'b'=>2}), "((\"a\" . 1) (\"b\" . 2))");
+$got = to_sexp({'a'=>'b','c'=>'d'});
+ok(grep { $_ eq $got } "((\"c\" . \"d\") (\"a\" . \"b\"))", "((\"a\" . \"b\") (\"c\" . \"d\"))");
+
+$got = to_sexp({'a'=>1,'b'=>2});
+ok(grep { $_ eq $got } "((\"a\" . 1) (\"b\" . 2))", "((\"b\" . 2) (\"a\" . 1))");
# complex
is(to_sexp([1,[2,3.3,45],10]), "(1 (2 3.3 45) 10)");
-is(to_sexp({'a'=>[1,2,3],
- 'c'=>{name => 'OK'}}),
- "((\"c\" . ((\"name\" . \"OK\"))) (\"a\" . (1 2 3)))");
+$got = to_sexp({'a'=>[1,2,3], 'c'=>{name => 'OK'}});
+ok(grep { $_ eq $got } ("((\"c\" . ((\"name\" . \"OK\"))) (\"a\" . (1 2 3)))",
+ "((\"a\" . (1 2 3)) (\"c\" . ((\"name\" . \"OK\"))))"));
@@ -5,7 +5,7 @@ use RPC::EPC::Service;
# start server
-$pid = open2(*PROC_OUT, undef, "perl ./t/_process.pl");
+$pid = open2(*PROC_OUT, undef, $^X . " ./t/_process.pl");
$val = <PROC_OUT>;
is("8888\n", $val);
@@ -3,7 +3,7 @@ use Test::More tests => 8;
use IPC::Open2;
use RPC::EPC::Service;
-$pid = open2(*PROC_OUT, undef, "perl ./t/_echo.pl");
+$pid = open2(*PROC_OUT, undef, $^X . " ./t/_echo.pl");
$port = <PROC_OUT>;
eval {
@@ -3,7 +3,7 @@ use Test::More tests => 3;
use IPC::Open2;
use RPC::EPC::Service;
-$pid = open2(*PROC_OUT, undef, "perl ./t/_add.pl");
+$pid = open2(*PROC_OUT, undef, $^X . " ./t/_add.pl");
$port = <PROC_OUT>;
eval {
@@ -4,7 +4,7 @@ use IPC::Open2;
use RPC::EPC::Service;
use Data::Dumper;
-$pid = open2(*PROC_OUT, undef, "perl ./t/_errors.pl");
+$pid = open2(*PROC_OUT, undef, $^X . " ./t/_errors.pl");
$port = <PROC_OUT>;
eval {
@@ -1,9 +1,9 @@
-use Test::More tests => 1;
+use Test::More tests => 3;
use IPC::Open2;
use RPC::EPC::Service;
-$pid = open2(*PROC_OUT, undef, "perl ./t/_methods.pl");
+$pid = open2(*PROC_OUT, undef, $^X . " ./t/_methods.pl");
$port = <PROC_OUT>;
eval {
@@ -11,10 +11,10 @@ eval {
$client->client_start;
$ret = $client->query_methods();
- is(to_sexp($ret->recv), to_sexp([['defined_method',"A","B"],
- ['method1','args',undef],
- ['test2','a b c','docstring here...'],
- ]));
+ my $got = to_sexp($ret->recv);
+ like $got, qr/\Q("defined_method" "A" "B")\E/;
+ like $got, qr/\Q("method1" "args" nil)\E/;
+ like $got, qr/\Q("test2" "a b c" "docstring here...")\E/;
};
kill 1, $pid;
@@ -5,7 +5,7 @@ use Encode;
use RPC::EPC::Service;
use Data::Dumper;
-$pid = open2(*PROC_OUT, undef, "perl ./t/_echo.pl");
+$pid = open2(*PROC_OUT, undef, $^X . " ./t/_echo.pl");
$port = <PROC_OUT>;
eval {