r43887 - in /trunk/libconfig-model-perl: ChangeLog META.yml debian/changelog lib/Config/Model.pm lib/Config/Model/WizardHelper.pm t/big_model.pm t/wizard.t
ddumont-guest at users.alioth.debian.org
ddumont-guest at users.alioth.debian.org
Thu Sep 10 11:13:26 UTC 2009
Author: ddumont-guest
Date: Thu Sep 10 11:13:08 2009
New Revision: 43887
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=43887
Log:
new upstream release. ready for upload
Modified:
trunk/libconfig-model-perl/ChangeLog
trunk/libconfig-model-perl/META.yml
trunk/libconfig-model-perl/debian/changelog
trunk/libconfig-model-perl/lib/Config/Model.pm
trunk/libconfig-model-perl/lib/Config/Model/WizardHelper.pm
trunk/libconfig-model-perl/t/big_model.pm
trunk/libconfig-model-perl/t/wizard.t
Modified: trunk/libconfig-model-perl/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/ChangeLog?rev=43887&op=diff
==============================================================================
--- trunk/libconfig-model-perl/ChangeLog (original)
+++ trunk/libconfig-model-perl/ChangeLog Thu Sep 10 11:13:08 2009
@@ -1,3 +1,8 @@
+2009-09-09 Dominique Dumont <dominique.dumont at hp.com> v0.640
+
+ * lib/Config/Model/WizardHelper.pm (new): Correctly scan list
+ element.
+
2009-07-30 Dominique Dumont <dominique.dumont at hp.com> v0.639
* lib/Config/Model/WizardHelper.pm (leaf_element_cb): bug fix:
Modified: trunk/libconfig-model-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/META.yml?rev=43887&op=diff
==============================================================================
--- trunk/libconfig-model-perl/META.yml (original)
+++ trunk/libconfig-model-perl/META.yml Thu Sep 10 11:13:08 2009
@@ -1,6 +1,6 @@
---
name: Config-Model
-version: 0.639
+version: 0.640
author:
- Dominique Dumont (ddumont at cpan dot org)
abstract: Edit and validate configuration data
@@ -27,7 +27,7 @@
provides:
Config::Model:
file: lib/Config/Model.pm
- version: 0.639
+ version: 0.640
Config::Model::AnyId:
file: lib/Config/Model/AnyId.pm
version: 1.0914
@@ -121,7 +121,7 @@
version: 1.1004
Config::Model::WizardHelper:
file: lib/Config/Model/WizardHelper.pm
- version: 1.1008
+ version: 1.1026
generated_by: Module::Build version 0.35
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
Modified: trunk/libconfig-model-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/debian/changelog?rev=43887&op=diff
==============================================================================
--- trunk/libconfig-model-perl/debian/changelog (original)
+++ trunk/libconfig-model-perl/debian/changelog Thu Sep 10 11:13:08 2009
@@ -1,3 +1,9 @@
+libconfig-model-perl (0.640-1) unstable; urgency=low
+
+ * New upstream release (WizardHelper bug fix)
+
+ -- Dominique Dumont <dominique.dumont at hp.com> Thu, 10 Sep 2009 13:11:56 +0200
+
libconfig-model-perl (0.639-1) unstable; urgency=low
[ Dominique Dumont ]
Modified: trunk/libconfig-model-perl/lib/Config/Model.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/lib/Config/Model.pm?rev=43887&op=diff
==============================================================================
--- trunk/libconfig-model-perl/lib/Config/Model.pm (original)
+++ trunk/libconfig-model-perl/lib/Config/Model.pm Thu Sep 10 11:13:08 2009
@@ -1,6 +1,6 @@
# $Author: ddumont $
-# $Date: 2009-07-27 18:19:04 +0200 (Mon, 27 Jul 2009) $
-# $Revision: 1005 $
+# $Date: 2009-09-09 18:07:27 +0200 (Wed, 09 Sep 2009) $
+# $Revision: 1026 $
# Copyright (c) 2005-2009 Dominique Dumont.
#
@@ -36,7 +36,7 @@
# this class holds the version number of the package
use vars qw($VERSION @status @level @experience_list %experience_index) ;
-$VERSION = '0.639';
+$VERSION = '0.640';
=head1 NAME
Modified: trunk/libconfig-model-perl/lib/Config/Model/WizardHelper.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/lib/Config/Model/WizardHelper.pm?rev=43887&op=diff
==============================================================================
--- trunk/libconfig-model-perl/lib/Config/Model/WizardHelper.pm (original)
+++ trunk/libconfig-model-perl/lib/Config/Model/WizardHelper.pm Thu Sep 10 11:13:08 2009
@@ -1,6 +1,6 @@
# $Author: ddumont $
-# $Date: 2009-07-30 15:13:21 +0200 (Thu, 30 Jul 2009) $
-# $Revision: 1008 $
+# $Date: 2009-09-09 18:07:27 +0200 (Wed, 09 Sep 2009) $
+# $Revision: 1026 $
# Copyright (c) 2006-2009 Dominique Dumont.
#
@@ -30,7 +30,7 @@
use Config::Model::Exception ;
use vars qw($VERSION);
-$VERSION = sprintf "1.%04d", q$Revision: 1008 $ =~ /(\d+)/;
+$VERSION = sprintf "1.%04d", q$Revision: 1026 $ =~ /(\d+)/;
=head1 NAME
@@ -163,7 +163,8 @@
}
# handle optional list_element_cb parameter
- $cb_hash{list_element_cb} = delete $args{list_element_cb} || $cb_hash{hash_element_cb} ;
+ $cb_hash{list_element_cb} = delete $args{list_element_cb}
+ || $cb_hash{hash_element_cb} ;
# optional call-back parameter
$cb_hash{check_list_element_cb}
@@ -188,6 +189,7 @@
-> new ( fallback => 'all' ,
experience => $user_scan_args{experience} ,
hash_element_cb => sub { $self -> hash_element_cb (@_) },
+ list_element_cb => sub { $self -> hash_element_cb (@_) },
node_content_cb => sub { $self -> node_content_cb (@_) },
leaf_cb => sub { $self -> leaf_cb (@_) },
);
Modified: trunk/libconfig-model-perl/t/big_model.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/t/big_model.pm?rev=43887&op=diff
==============================================================================
--- trunk/libconfig-model-perl/t/big_model.pm (original)
+++ trunk/libconfig-model-perl/t/big_model.pm Thu Sep 10 11:13:08 2009
@@ -1,7 +1,7 @@
# -*- cperl -*-
# $Author: ddumont $
-# $Date: 2008-04-08 18:22:52 +0200 (Tue, 08 Apr 2008) $
-# $Revision: 595 $
+# $Date: 2009-09-09 18:07:27 +0200 (Wed, 09 Sep 2009) $
+# $Revision: 1026 $
# this file is used by test script
@@ -94,7 +94,7 @@
name => 'Master',
permission => [ [qw/tree_macro warp/] => 'advanced'] ,
class_description => "Master description",
- level => [ [qw/hash_a tree_macro int_v/] => 'important' ],
+ level => [ [qw/lista hash_a tree_macro int_v/] => 'important' ],
element => [
std_id => { type => 'hash',
index_type => 'string',
Modified: trunk/libconfig-model-perl/t/wizard.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/t/wizard.t?rev=43887&op=diff
==============================================================================
--- trunk/libconfig-model-perl/t/wizard.t (original)
+++ trunk/libconfig-model-perl/t/wizard.t Thu Sep 10 11:13:08 2009
@@ -1,10 +1,10 @@
# -*- cperl -*-
# $Author: ddumont $
-# $Date: 2009-07-30 15:13:21 +0200 (Thu, 30 Jul 2009) $
-# $Revision: 1008 $
+# $Date: 2009-09-09 18:07:27 +0200 (Wed, 09 Sep 2009) $
+# $Revision: 1026 $
use ExtUtils::testlib;
-use Test::More tests => 20;
+use Test::More tests => 29;
use Config::Model;
use Log::Log4perl qw(get_logger :levels) ;
@@ -72,6 +72,15 @@
"set up data in tree");
my @expected = (
+ [ '' , 'lista'],
+ [ '' , 'lista:0'],
+ [ 'back', 'lista:1'],
+ [ '' , 'lista:0'],
+ [ 'for' , 'lista'],
+ [ '' , 'lista:0'],
+ [ '' , 'lista:1'],
+ [ '' , 'lista:2'],
+ [ '' , 'lista:3'],
[ '' , 'hash_a'],
[ '' , 'hash_a:"ti ti"'],
[ '' , 'hash_a:titi'],
@@ -122,9 +131,19 @@
is( $obj->location, $expect, "hash_element_cb got $expect" ) ;
};
+my $list_element_cb = sub {
+ my ($wiz, $data_r,$node,$element, at idx) = @_ ;
+ print "test: list_element_cb called for ",$node->location," element $element\n"
+ if $trace ;
+ my $obj = $node->fetch_element($element) ;
+ my $expect = $steer->($wiz,shift @expected) ;
+ is( $obj->location, $expect, "list_element_cb got $expect" ) ;
+};
+
my $wizard = $inst->wizard_helper(leaf_cb => $leaf_element_cb,
integer_value_cb => $int_cb,
hash_element_cb => $hash_element_cb,
+ list_element_cb => $list_element_cb,
experience => 'advanced') ;
ok($wizard,"created wizard helper") ;
More information about the Pkg-perl-cvs-commits
mailing list