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