Hello community,
here is the log from the commit of package yast2-perl-bindings for openSUSE:Factory checked in at 2013-07-02 07:47:47
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/yast2-perl-bindings (Old)
and /work/SRC/openSUSE:Factory/.yast2-perl-bindings.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "yast2-perl-bindings"
Changes:
--------
--- /work/SRC/openSUSE:Factory/yast2-perl-bindings/yast2-perl-bindings.changes 2013-06-17 10:33:18.000000000 +0200
+++ /work/SRC/openSUSE:Factory/.yast2-perl-bindings.new/yast2-perl-bindings.changes 2013-07-02 07:47:49.000000000 +0200
@@ -1,0 +2,28 @@
+Mon Jul 1 08:42:30 UTC 2013 - lslezak@suse.cz
+
+- Removed useless BuildRequires: curl-devel and rpm-devel
+- 2.24.4
+
+-------------------------------------------------------------------
+Fri Jun 28 05:19:02 UTC 2013 - lslezak@suse.cz
+
+- testsuite: filter out yast2-core messages from tests, make the
+ tests less sensitive to changes in yast2-core
+- 2.24.3
+
+-------------------------------------------------------------------
+Mon Jun 24 13:13:11 UTC 2013 - lslezak@suse.cz
+
+- testsuite: forward compatibility with YCP to Ruby conversion,
+ all modules have to start with an uppercase letter (Ruby
+ convention for module names)
+- 2.24.2
+
+-------------------------------------------------------------------
+Tue Jun 18 18:25:00 UTC 2013 - lslezak@suse.cz
+
+- set the source location when calling YaST functions outside Perl,
+ fixes wrong location in y2log
+- 2.24.1
+
+-------------------------------------------------------------------
Old:
----
yast2-perl-bindings-2.24.0.tar.bz2
New:
----
yast2-perl-bindings-2.24.4.tar.bz2
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ yast2-perl-bindings.spec ++++++
--- /var/tmp/diff_new_pack.ycPKMP/_old 2013-07-02 07:47:50.000000000 +0200
+++ /var/tmp/diff_new_pack.ycPKMP/_new 2013-07-02 07:47:50.000000000 +0200
@@ -17,16 +17,14 @@
Name: yast2-perl-bindings
-Version: 2.24.0
+Version: 2.24.4
Release: 0
BuildRoot: %{_tmppath}/%{name}-%{version}-build
Source0: yast2-perl-bindings-%{version}.tar.bz2
-BuildRequires: curl-devel
BuildRequires: gcc-c++
BuildRequires: libtool
-BuildRequires: rpm-devel
BuildRequires: yast2-core-devel
BuildRequires: yast2-devtools
BuildRequires: yast2-ycp-ui-bindings-devel
++++++ yast2-perl-bindings-2.24.0.tar.bz2 -> yast2-perl-bindings-2.24.4.tar.bz2 ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/VERSION new/yast2-perl-bindings-2.24.4/VERSION
--- old/yast2-perl-bindings-2.24.0/VERSION 2013-06-14 13:34:40.000000000 +0200
+++ new/yast2-perl-bindings-2.24.4/VERSION 2013-07-01 11:16:26.000000000 +0200
@@ -1 +1 @@
-2.24.0
+2.24.4
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/configure new/yast2-perl-bindings-2.24.4/configure
--- old/yast2-perl-bindings-2.24.0/configure 2013-06-14 13:34:58.000000000 +0200
+++ new/yast2-perl-bindings-2.24.4/configure 2013-07-01 11:16:45.000000000 +0200
@@ -1,6 +1,6 @@
#! /bin/sh
# Guess values for system-dependent variables and create Makefiles.
-# Generated by GNU Autoconf 2.69 for yast2-perl-bindings 2.24.0.
+# Generated by GNU Autoconf 2.69 for yast2-perl-bindings 2.24.4.
#
# Report bugs to http://bugs.opensuse.org/.
#
@@ -590,8 +590,8 @@
# Identity of this package.
PACKAGE_NAME='yast2-perl-bindings'
PACKAGE_TARNAME='yast2-perl-bindings'
-PACKAGE_VERSION='2.24.0'
-PACKAGE_STRING='yast2-perl-bindings 2.24.0'
+PACKAGE_VERSION='2.24.4'
+PACKAGE_STRING='yast2-perl-bindings 2.24.4'
PACKAGE_BUGREPORT='http://bugs.opensuse.org/'
PACKAGE_URL=''
@@ -1377,7 +1377,7 @@
# Omit some internal or obsolete options to make the list less imposing.
# This message is too long to be a string in the A/UX 3.1 sh.
cat <<_ACEOF
-\`configure' configures yast2-perl-bindings 2.24.0 to adapt to many kinds of systems.
+\`configure' configures yast2-perl-bindings 2.24.4 to adapt to many kinds of systems.
Usage: $0 [OPTION]... [VAR=VALUE]...
@@ -1449,7 +1449,7 @@
if test -n "$ac_init_help"; then
case $ac_init_help in
- short | recursive ) echo "Configuration of yast2-perl-bindings 2.24.0:";;
+ short | recursive ) echo "Configuration of yast2-perl-bindings 2.24.4:";;
esac
cat <<\_ACEOF
@@ -1567,7 +1567,7 @@
test -n "$ac_init_help" && exit $ac_status
if $ac_init_version; then
cat <<\_ACEOF
-yast2-perl-bindings configure 2.24.0
+yast2-perl-bindings configure 2.24.4
generated by GNU Autoconf 2.69
Copyright (C) 2012 Free Software Foundation, Inc.
@@ -2020,7 +2020,7 @@
This file contains any messages produced by compilers while
running configure, to aid debugging if configure makes a mistake.
-It was created by yast2-perl-bindings $as_me 2.24.0, which was
+It was created by yast2-perl-bindings $as_me 2.24.4, which was
generated by GNU Autoconf 2.69. Invocation command line was
$ $0 $@
@@ -2959,7 +2959,7 @@
# Define the identity of the package.
PACKAGE='yast2-perl-bindings'
- VERSION='2.24.0'
+ VERSION='2.24.4'
cat >>confdefs.h <<_ACEOF
@@ -3082,7 +3082,7 @@
-VERSION="2.24.0"
+VERSION="2.24.4"
RPMNAME="yast2-perl-bindings"
MAINTAINER="Martin Vidner "
@@ -16622,7 +16622,7 @@
# report actual input values of CONFIG_FILES etc. instead of their
# values after options handling.
ac_log="
-This file was extended by yast2-perl-bindings $as_me 2.24.0, which was
+This file was extended by yast2-perl-bindings $as_me 2.24.4, which was
generated by GNU Autoconf 2.69. Invocation command line was
CONFIG_FILES = $CONFIG_FILES
@@ -16688,7 +16688,7 @@
cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`"
ac_cs_version="\\
-yast2-perl-bindings config.status 2.24.0
+yast2-perl-bindings config.status 2.24.4
configured by $0, generated by GNU Autoconf 2.69,
with options \\"\$ac_cs_config\\"
@@ -19267,7 +19267,7 @@
# report actual input values of CONFIG_FILES etc. instead of their
# values after options handling.
ac_log="
-This file was extended by yast2-perl-bindings $as_me 2.24.0, which was
+This file was extended by yast2-perl-bindings $as_me 2.24.4, which was
generated by GNU Autoconf 2.69. Invocation command line was
CONFIG_FILES = $CONFIG_FILES
@@ -19333,7 +19333,7 @@
cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`"
ac_cs_version="\\
-yast2-perl-bindings config.status 2.24.0
+yast2-perl-bindings config.status 2.24.4
configured by $0, generated by GNU Autoconf 2.69,
with options \\"\$ac_cs_config\\"
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/configure.in new/yast2-perl-bindings-2.24.4/configure.in
--- old/yast2-perl-bindings-2.24.0/configure.in 2013-06-14 13:34:47.000000000 +0200
+++ new/yast2-perl-bindings-2.24.4/configure.in 2013-07-01 11:16:33.000000000 +0200
@@ -1,9 +1,9 @@
dnl configure.in for yast2-perl-bindings
dnl
-dnl -- This file is generated by y2autoconf 2.24.0 - DO NOT EDIT! --
+dnl -- This file is generated by y2autoconf 2.24.1 - DO NOT EDIT! --
dnl (edit configure.in.in instead)
-AC_INIT(yast2-perl-bindings, 2.24.0, http://bugs.opensuse.org/, yast2-perl-bindings)
+AC_INIT(yast2-perl-bindings, 2.24.4, http://bugs.opensuse.org/, yast2-perl-bindings)
dnl Check for presence of file 'RPMNAME'
AC_CONFIG_SRCDIR([RPMNAME])
@@ -18,7 +18,7 @@
AM_INIT_AUTOMAKE(tar-ustar -Wno-portability)
dnl Important YaST2 variables
-VERSION="2.24.0"
+VERSION="2.24.4"
RPMNAME="yast2-perl-bindings"
MAINTAINER="Martin Vidner "
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/src/YCP.cc new/yast2-perl-bindings-2.24.4/src/YCP.cc
--- old/yast2-perl-bindings-2.24.0/src/YCP.cc 2013-01-22 11:41:05.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/src/YCP.cc 2013-06-19 13:55:53.000000000 +0200
@@ -102,13 +102,19 @@
// calling convention:
// namespace name (without trailing ::)
// function name
+ // source file name
+ // source line number
// function arguments
- if (items < 2 || !SvPOK (ST (0)) || !SvPOK (ST (1)))
+ if (items < 4 || !SvPOK (ST (0)) || !SvPOK (ST (1)) || !SvPOK (ST (2)) || !SvIOK (ST (3)))
{
- y2internal ("Perl called YCP without specifying a namespace and a name");
+ y2internal ("Perl called YCP without specifying a namespace, name, caller source file and line number");
XSRETURN_EMPTY;
}
+ // set the current source location
+ YaST::ee.setFilename(SvPV_nolen (ST (2)));
+ YaST::ee.setLinenumber(SvIV(ST (3)));
+
const char * ns_name = SvPV_nolen (ST (0));
const char * func_name = SvPV_nolen (ST (1));
@@ -123,9 +129,9 @@
// access the parameters via a vector because using dXSARGS more
// than once per XSUB call messes up Perl call stacks
vector args;
- args.reserve (items - 2);
+ args.reserve (items - 4);
I32 i;
- for (i = 2; i < items; ++i)
+ for (i = 4; i < items; ++i)
{
args.push_back (ST (i));
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/src/YCP.pm new/yast2-perl-bindings-2.24.4/src/YCP.pm
--- old/yast2-perl-bindings-2.24.0/src/YCP.pm 2013-01-22 11:41:05.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/src/YCP.pm 2013-06-19 13:55:53.000000000 +0200
@@ -420,7 +420,9 @@
my @components = split ("::", $AUTOLOAD);
my $func = pop (@components);
- return YaST::YCP::call_ycp (join ("::", @components), $func, @_);
+
+ my ($package, $filename, $line) = caller();
+ return YaST::YCP::call_ycp (join ("::", @components), $func, $filename, $line, @_);
}
=head2 Boolean
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/test-yast new/yast2-perl-bindings-2.24.4/testsuite/test-yast
--- old/yast2-perl-bindings-2.24.0/testsuite/test-yast 2013-01-22 11:41:05.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/test-yast 2013-06-28 07:35:56.000000000 +0200
@@ -41,6 +41,7 @@
# filter out variable information
sed --in-place -e 's/^....-..-.. ..:..:.. \(<.> \)[^ ]* /\1/' tmp.err.$BASE
sed --in-place -e 's/\(([^)]*)\):[0-9]\+/\1:XXX/' tmp.err.$BASE
+ sed --in-place -e '/^<[0-9]> \[\(liby2\|wfm\|ui-component\)\] /d' tmp.err.$BASE
diff -Nu $ERR tmp.err.$BASE || CASEOK=false
diff -Nu $OUT tmp.out.$BASE || CASEOK=false
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/A/Nested.pm new/yast2-perl-bindings-2.24.4/testsuite/tests/A/Nested.pm
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/A/Nested.pm 1970-01-01 01:00:00.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/A/Nested.pm 2013-06-24 16:02:00.000000000 +0200
@@ -0,0 +1,9 @@
+package A::Nested;
+
+BEGIN { $TYPEINFO{hello} = ["function", "string"]; }
+sub hello
+{
+ return "Hello, world";
+}
+
+1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/A/nested.pm new/yast2-perl-bindings-2.24.4/testsuite/tests/A/nested.pm
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/A/nested.pm 2013-01-22 11:41:05.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/A/nested.pm 1970-01-01 01:00:00.000000000 +0100
@@ -1,9 +0,0 @@
-package A::nested;
-
-BEGIN { $TYPEINFO{hello} = ["function", "string"]; }
-sub hello
-{
- return "Hello, world";
-}
-
-1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/Long.err new/yast2-perl-bindings-2.24.4/testsuite/tests/Long.err
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/Long.err 1970-01-01 01:00:00.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/Long.err 2013-06-28 07:35:56.000000000 +0200
@@ -0,0 +1,25 @@
+<1> [Y2Perl] Y2PerlComponent.cc(Y2PerlComponent):XXX Creating Y2PerlComponent
+<1> [YCP] tests/Long.ycp:4 3*2**30: 3221225472
+<1> [YCP] tests/Long.ycp:5 3*2**30: 3221225472 (class)
+<1> [YCP] tests/Long.ycp:6 3*2**40: 3298534883328
+<1> [YCP] tests/Long.ycp:7 3*2**40: 3298534883328 (class)
+<1> [YCP] tests/Long.ycp:12 -7 * 2**30: -7516192768
+<1> [YCP] tests/Long.ycp:13 -7 * 2**30: -7516192768 class
+<1> [YCP] tests/Long.ycp:12 -1 * 2**30: -1073741824
+<1> [YCP] tests/Long.ycp:13 -1 * 2**30: -1073741824 class
+<1> [YCP] tests/Long.ycp:12 1 * 2**30: 1073741824
+<1> [YCP] tests/Long.ycp:13 1 * 2**30: 1073741824 class
+<1> [YCP] tests/Long.ycp:12 3 * 2**30: 3221225472
+<1> [YCP] tests/Long.ycp:13 3 * 2**30: 3221225472 class
+<1> [YCP] tests/Long.ycp:12 7 * 2**30: 7516192768
+<1> [YCP] tests/Long.ycp:13 7 * 2**30: 7516192768 class
+<1> [YCP] tests/Long.ycp:18 loop -7 * 2**30: -7516192768
+<1> [YCP] tests/Long.ycp:19 loop -7 * 2**30: -7516192768 class
+<1> [YCP] tests/Long.ycp:18 loop -1 * 2**30: -1073741824
+<1> [YCP] tests/Long.ycp:19 loop -1 * 2**30: -1073741824 class
+<1> [YCP] tests/Long.ycp:18 loop 1 * 2**30: 1073741824
+<1> [YCP] tests/Long.ycp:19 loop 1 * 2**30: 1073741824 class
+<1> [YCP] tests/Long.ycp:18 loop 3 * 2**30: 3221225472
+<1> [YCP] tests/Long.ycp:19 loop 3 * 2**30: 3221225472 class
+<1> [YCP] tests/Long.ycp:18 loop 7 * 2**30: 7516192768
+<1> [YCP] tests/Long.ycp:19 loop 7 * 2**30: 7516192768 class
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/Long.out new/yast2-perl-bindings-2.24.4/testsuite/tests/Long.out
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/Long.out 1970-01-01 01:00:00.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/Long.out 2013-06-24 16:02:00.000000000 +0200
@@ -0,0 +1 @@
+(`result (nil))
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/Long.pm new/yast2-perl-bindings-2.24.4/testsuite/tests/Long.pm
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/Long.pm 1970-01-01 01:00:00.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/Long.pm 2013-06-24 16:02:00.000000000 +0200
@@ -0,0 +1,74 @@
+#! /usr/bin/perl
+
+package Long;
+
+use warnings;
+use strict;
+
+our %TYPEINFO;
+
+
+use YaST::YCP qw(Integer);
+
+BEGIN { $TYPEINFO{three_billion} = ["function", "integer"]; }
+sub three_billion
+{
+ my $class = shift;
+ return 3 * 1024 * 1024 *1024;
+}
+
+BEGIN { $TYPEINFO{three_billion_c} = ["function", "integer"]; }
+sub three_billion_c
+{
+ my $class = shift;
+ return Integer(3 * 1024 * 1024 *1024);
+}
+
+BEGIN { $TYPEINFO{three_trillion} = ["function", "integer"]; }
+sub three_trillion
+{
+ my $class = shift;
+ return 3 * 1024 * 1024 * 1024 *1024;
+}
+
+BEGIN { $TYPEINFO{three_trillion_c} = ["function", "integer"]; }
+sub three_trillion_c
+{
+ my $class = shift;
+ return Integer(3 * 1024 * 1024 * 1024 *1024);
+}
+
+BEGIN { $TYPEINFO{big_num} = ["function", "integer", "integer", "integer"]; }
+sub big_num
+{
+ my $class = shift;
+ my ($mantissa, $k_exp) = @_;
+ foreach (1..$k_exp) {
+ $mantissa *= 1024;
+ }
+ return $mantissa;
+}
+
+BEGIN { $TYPEINFO{big_num_c} = ["function", "integer", "integer", "integer"]; }
+sub big_num_c
+{
+ my $class = shift;
+ return Integer ($class->big_num (@_));
+}
+
+BEGIN { $TYPEINFO{loop} = ["function", "integer", "integer"]; }
+sub loop
+{
+ my $class = shift;
+ my $arg =shift;
+ return $arg;
+}
+
+BEGIN { $TYPEINFO{loop_c} = ["function", "integer", "integer"]; }
+sub loop_c
+{
+ my $class = shift;
+ return Integer ($class->loop (@_));
+}
+
+1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/Long.ycp new/yast2-perl-bindings-2.24.4/testsuite/tests/Long.ycp
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/Long.ycp 1970-01-01 01:00:00.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/Long.ycp 2013-06-24 16:02:00.000000000 +0200
@@ -0,0 +1,21 @@
+// #127896, #75798
+{
+ import "Long";
+ y2milestone ("3*2**30: %1", Long::three_billion ());
+ y2milestone ("3*2**30: %1 (class)", Long::three_billion_c ());
+ y2milestone ("3*2**40: %1", Long::three_trillion ());
+ y2milestone ("3*2**40: %1 (class)", Long::three_trillion_c ());
+
+ // 3 fits to UV, not IV
+ list<integer> lm = [-7, -1, 1, 3, 7];
+ foreach (integer m, lm, {
+ y2milestone ("%1 * 2**30: %2", m, Long::big_num (m, 3));
+ y2milestone ("%1 * 2**30: %2 class", m, Long::big_num_c (m, 3));
+ });
+
+ integer g = 1024*1024*1024;
+ foreach (integer m, lm, {
+ y2milestone ("loop %1 * 2**30: %2", m, Long::loop (m * g));
+ y2milestone ("loop %1 * 2**30: %2 class", m, Long::loop_c (m * g));
+ });
+}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/Reference.err new/yast2-perl-bindings-2.24.4/testsuite/tests/Reference.err
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/Reference.err 1970-01-01 01:00:00.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/Reference.err 2013-06-28 07:35:56.000000000 +0200
@@ -0,0 +1,7 @@
+<1> [Y2Perl] Y2PerlComponent.cc(Y2PerlComponent):XXX Creating Y2PerlComponent
+<1> [YCP] tests/Reference.ycp:19 integer: 20
+<1> [YCP] tests/Reference.ycp:20 float: 6.28
+<1> [YCP] tests/Reference.ycp:21 boolean: true
+<1> [YCP] tests/Reference.ycp:22 string: hu-ok
+<1> [YCP] tests/Reference.ycp:23 list: [8, 2, 2, 3, 4, -3]
+<1> [YCP] tests/Reference.ycp:24 map: $["a":"A", "b":"y-ok", "d":"123"]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/Reference.out new/yast2-perl-bindings-2.24.4/testsuite/tests/Reference.out
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/Reference.out 1970-01-01 01:00:00.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/Reference.out 2013-06-24 16:02:00.000000000 +0200
@@ -0,0 +1 @@
+(`result (nil))
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/Reference.pm new/yast2-perl-bindings-2.24.4/testsuite/tests/Reference.pm
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/Reference.pm 1970-01-01 01:00:00.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/Reference.pm 2013-06-24 16:02:00.000000000 +0200
@@ -0,0 +1,52 @@
+#! /usr/bin/perl
+
+package Reference;
+
+use warnings;
+use strict;
+
+our %TYPEINFO;
+
+
+use YaST::YCP qw(:DATA);
+BEGIN { $TYPEINFO{refInt} = ["function", "void", "&integer"]; }
+sub refInt
+{
+ ${$_[1]} += 8;
+}
+
+BEGIN { $TYPEINFO{refBool} = ["function", "void", "&boolean"]; }
+sub refBool
+{
+ ${$_[1]} = 1;
+}
+
+BEGIN { $TYPEINFO{refString} = ["function", "void", "&string"]; }
+sub refString
+{
+ ${$_[1]} .= "-ok";
+}
+
+BEGIN { $TYPEINFO{refFloat} = ["function", "void", "&float"]; }
+sub refFloat
+{
+ ${$_[1]} *= 2;
+}
+
+BEGIN { $TYPEINFO{refListInt} = ["function", "void", ["&list", "integer"]]; }
+sub refListInt
+{
+ $_[1][0] = 8;
+ $_[1][1]++;
+ push @{$_[1]}, "-3";
+}
+
+BEGIN { $TYPEINFO{refMapStringString} = ["function", "void", ["&map", "string", "string"]]; }
+sub refMapStringString
+{
+ $_[1]->{a} = "A";
+ $_[1]->{b} .= "-ok";
+ delete $_[1]->{c};
+}
+
+1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/Reference.ycp new/yast2-perl-bindings-2.24.4/testsuite/tests/Reference.ycp
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/Reference.ycp 1970-01-01 01:00:00.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/Reference.ycp 2013-06-24 16:02:00.000000000 +0200
@@ -0,0 +1,25 @@
+//
+{
+ import "Reference";
+
+ integer i = 12;
+ float f = 3.14;
+ boolean b = false;
+ string s = "hu";
+ list<integer> l = [0, 1, 2, 3, 4];
+ map m = $["a":"x", "b":"y", "c":"z", "d":"123"];
+
+ Reference::refInt(i);
+ Reference::refFloat(f);
+ Reference::refBool(b);
+ Reference::refString(s);
+ Reference::refListInt(l);
+ Reference::refMapStringString(m);
+
+ y2milestone ("integer: %1", i);
+ y2milestone ("float: %1", f);
+ y2milestone ("boolean: %1", b);
+ y2milestone ("string: %1", s);
+ y2milestone ("list: %1", l);
+ y2milestone ("map: %1", m);
+}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/Simple1.err new/yast2-perl-bindings-2.24.4/testsuite/tests/Simple1.err
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/Simple1.err 1970-01-01 01:00:00.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/Simple1.err 2013-06-28 07:35:56.000000000 +0200
@@ -0,0 +1,2 @@
+<1> [Y2Perl] Y2PerlComponent.cc(Y2PerlComponent):XXX Creating Y2PerlComponent
+<1> [YCP] tests/Simple1.ycp:6 Hello, world
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/Simple1.out new/yast2-perl-bindings-2.24.4/testsuite/tests/Simple1.out
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/Simple1.out 1970-01-01 01:00:00.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/Simple1.out 2013-06-24 16:02:00.000000000 +0200
@@ -0,0 +1 @@
+(`result (nil))
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/Simple1.pm new/yast2-perl-bindings-2.24.4/testsuite/tests/Simple1.pm
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/Simple1.pm 1970-01-01 01:00:00.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/Simple1.pm 2013-06-24 16:02:00.000000000 +0200
@@ -0,0 +1,9 @@
+package Simple1;
+
+BEGIN { $TYPEINFO{hello} = ["function", "string"]; }
+sub hello
+{
+ return "Hello, world";
+}
+
+1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/Simple1.ycp new/yast2-perl-bindings-2.24.4/testsuite/tests/Simple1.ycp
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/Simple1.ycp 1970-01-01 01:00:00.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/Simple1.ycp 2013-06-24 16:02:00.000000000 +0200
@@ -0,0 +1,7 @@
+//
+{
+ import "Simple1";
+
+
+ y2milestone ("%1", Simple1::hello ());
+}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/Testpfunc1.err new/yast2-perl-bindings-2.24.4/testsuite/tests/Testpfunc1.err
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/Testpfunc1.err 1970-01-01 01:00:00.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/Testpfunc1.err 2013-06-28 07:35:56.000000000 +0200
@@ -0,0 +1,5 @@
+<1> [Y2Perl] Y2PerlComponent.cc(Y2PerlComponent):XXX Creating Y2PerlComponent
+<1> [YCP] tests/Testpfunc1.ycp:5 rxmatch (abracadabra, [a-d]*): true
+<1> [YCP] tests/Testpfunc1.ycp:7 rxmatch (abracadabra, ^[a-d]*$): false
+<1> [YCP] tests/Testpfunc1.ycp:10 lengths (["one", "two", "three"]): [3, 3, 5]
+<1> [YCP] tests/Testpfunc1.ycp:13 amap ($["one":"two"]): $["a":"1", "b":"two"]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/Testpfunc1.out new/yast2-perl-bindings-2.24.4/testsuite/tests/Testpfunc1.out
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/Testpfunc1.out 1970-01-01 01:00:00.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/Testpfunc1.out 2013-06-24 16:02:00.000000000 +0200
@@ -0,0 +1 @@
+(`result (nil))
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/Testpfunc1.pm new/yast2-perl-bindings-2.24.4/testsuite/tests/Testpfunc1.pm
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/Testpfunc1.pm 1970-01-01 01:00:00.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/Testpfunc1.pm 2013-06-24 16:02:00.000000000 +0200
@@ -0,0 +1,43 @@
+#! /usr/bin/perl
+
+package Testpfunc1;
+use warnings;
+use strict;
+
+our %TYPEINFO;
+
+BEGIN { $TYPEINFO{rxmatch} = ["function", "boolean", "string", "string"]; }
+sub rxmatch
+{
+ my $self = shift;
+ my ($string, $pattern) = @_;
+ return $string =~ $pattern;
+}
+
+BEGIN { $TYPEINFO{lengths} = ["function", ["list", "integer"], ["list", "string"]]; }
+
+=pod
+
+Computes the lengths of the strings in the list.
+
+=cut
+
+sub lengths
+{
+ my $self = shift;
+ # warning, we get a REFERENCE to the list of strings
+ return [ map (length, @{$_[0]}) ];
+}
+
+BEGIN { $TYPEINFO{amap} = ["function", [ 'map', 'string', 'any' ], [ 'map', 'string', 'any' ]]; }
+sub amap
+{
+ my $self = shift;
+ my $data = shift;
+
+ my %returnMap = (a => 1, b => "two");
+
+ return \%returnMap;
+}
+
+1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/Testpfunc1.ycp new/yast2-perl-bindings-2.24.4/testsuite/tests/Testpfunc1.ycp
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/Testpfunc1.ycp 1970-01-01 01:00:00.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/Testpfunc1.ycp 2013-06-24 16:02:00.000000000 +0200
@@ -0,0 +1,15 @@
+//
+{
+ import "Testpfunc1";
+
+ y2milestone ("rxmatch (%1, %2): %3", "abracadabra", "[a-d]*",
+ Testpfunc1::rxmatch ("abracadabra", "[a-d]*"));
+ y2milestone ("rxmatch (%1, %2): %3", "abracadabra", "^[a-d]*$",
+ Testpfunc1::rxmatch ("abracadabra", "^[a-d]*$"));
+
+ y2milestone ("lengths (%1): %2", ["one", "two", "three"],
+ Testpfunc1::lengths (["one", "two", "three"]));
+
+ y2milestone ("amap (%1): %2", $["one": "two"],
+ Testpfunc1::amap ($["one": "two"]));
+}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/Testpfunc2.err new/yast2-perl-bindings-2.24.4/testsuite/tests/Testpfunc2.err
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/Testpfunc2.err 1970-01-01 01:00:00.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/Testpfunc2.err 2013-06-28 07:35:56.000000000 +0200
@@ -0,0 +1,3 @@
+<1> [Y2Perl] Y2PerlComponent.cc(Y2PerlComponent):XXX Creating Y2PerlComponent
+<1> [YCP] tests/Testpfunc2.ycp:5 nested: Hello, world
+<1> [Y2Perl] YPerl.cc(destroy):XXX Shutting down embedded Perl interpreter.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/Testpfunc2.out new/yast2-perl-bindings-2.24.4/testsuite/tests/Testpfunc2.out
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/Testpfunc2.out 1970-01-01 01:00:00.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/Testpfunc2.out 2013-06-24 16:02:00.000000000 +0200
@@ -0,0 +1 @@
+(`result (nil))
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/Testpfunc2.ycp new/yast2-perl-bindings-2.24.4/testsuite/tests/Testpfunc2.ycp
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/Testpfunc2.ycp 1970-01-01 01:00:00.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/Testpfunc2.ycp 2013-06-24 16:02:00.000000000 +0200
@@ -0,0 +1,6 @@
+//
+{
+ import "A::Nested";
+
+ y2milestone ("nested: %1", A::Nested::hello ());
+}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/Types.err new/yast2-perl-bindings-2.24.4/testsuite/tests/Types.err
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/Types.err 1970-01-01 01:00:00.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/Types.err 2013-06-28 07:35:56.000000000 +0200
@@ -0,0 +1,3 @@
+<1> [Y2Perl] Y2PerlComponent.cc(Y2PerlComponent):XXX Creating Y2PerlComponent
+<1> [YCP] tests/Types.ycp:4 bool1: false
+<1> [YCP] tests/Types.ycp:5 bool2: false
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/Types.out new/yast2-perl-bindings-2.24.4/testsuite/tests/Types.out
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/Types.out 1970-01-01 01:00:00.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/Types.out 2013-06-24 16:02:00.000000000 +0200
@@ -0,0 +1 @@
+(`result (nil))
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/Types.pm new/yast2-perl-bindings-2.24.4/testsuite/tests/Types.pm
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/Types.pm 1970-01-01 01:00:00.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/Types.pm 2013-06-24 16:02:00.000000000 +0200
@@ -0,0 +1,26 @@
+#! /usr/bin/perl
+
+package Types;
+
+use warnings;
+use strict;
+
+our %TYPEINFO;
+
+
+use YaST::YCP qw(Boolean);
+BEGIN { $TYPEINFO{bool1} = ["function", "boolean"]; }
+sub bool1
+{
+ my $class = shift;
+ return 0;
+}
+
+BEGIN { $TYPEINFO{bool2} = ["function", "boolean"]; }
+sub bool2
+{
+ my $class = shift;
+ return Boolean (0);
+}
+
+1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/Types.ycp new/yast2-perl-bindings-2.24.4/testsuite/tests/Types.ycp
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/Types.ycp 1970-01-01 01:00:00.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/Types.ycp 2013-06-24 16:02:00.000000000 +0200
@@ -0,0 +1,6 @@
+//
+{
+ import "Types";
+ y2milestone ("bool1: %1", Types::bool1 ());
+ y2milestone ("bool2: %1", Types::bool2 ());
+}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/Types2.err new/yast2-perl-bindings-2.24.4/testsuite/tests/Types2.err
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/Types2.err 1970-01-01 01:00:00.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/Types2.err 2013-06-28 07:35:56.000000000 +0200
@@ -0,0 +1,4 @@
+<1> [Y2Perl] Y2PerlComponent.cc(Y2PerlComponent):XXX Creating Y2PerlComponent
+<1> [YCP] tests/Types2.ycp:6 termloop: `MyTerm ("Hi", "42")
+<1> [YCP] tests/Types2.ycp:7 termloop nt: `NestedTerm (`id ("42"), `MyTerm ("Hi", "42"))
+<1> [YCP] tests/Types2.ycp:8 termreverse: `mreTyM ("42", "Hi")
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/Types2.out new/yast2-perl-bindings-2.24.4/testsuite/tests/Types2.out
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/Types2.out 1970-01-01 01:00:00.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/Types2.out 2013-06-24 16:02:00.000000000 +0200
@@ -0,0 +1 @@
+(`result (nil))
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/Types2.pm new/yast2-perl-bindings-2.24.4/testsuite/tests/Types2.pm
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/Types2.pm 1970-01-01 01:00:00.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/Types2.pm 2013-06-24 16:02:00.000000000 +0200
@@ -0,0 +1,29 @@
+#! /usr/bin/perl
+
+package Types2;
+
+use warnings;
+use strict;
+
+our %TYPEINFO;
+
+
+use YaST::YCP qw(:DATA);
+BEGIN { $TYPEINFO{termloop} = ["function", "term", "term"]; }
+sub termloop
+{
+ my $class = shift;
+ return shift;
+}
+
+BEGIN { $TYPEINFO{termreverse} = ["function", "term", "term"]; }
+sub termreverse
+{
+ my $class = shift;
+ my $t = shift;
+
+ my @rargs = reverse @{$t->args};
+ return Term (reverse ($t->name), @rargs);
+}
+
+1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/Types2.ycp new/yast2-perl-bindings-2.24.4/testsuite/tests/Types2.ycp
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/Types2.ycp 1970-01-01 01:00:00.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/Types2.ycp 2013-06-24 16:02:00.000000000 +0200
@@ -0,0 +1,9 @@
+//
+{
+ import "Types2";
+ term t = `MyTerm ("Hi", 42);
+ term nt = `NestedTerm (`id (42), t);
+ y2milestone ("termloop: %1", Types2::termloop (t));
+ y2milestone ("termloop nt: %1", Types2::termloop (nt));
+ y2milestone ("termreverse: %1", Types2::termreverse (t));
+}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/long.err new/yast2-perl-bindings-2.24.4/testsuite/tests/long.err
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/long.err 2013-01-22 11:41:05.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/long.err 1970-01-01 01:00:00.000000000 +0100
@@ -1,33 +0,0 @@
-<1> [liby2] genericfrontend.cc(main):XXX Launched YaST2 component 'y2base' '-l' '-' '-n' 'long=perl' 'tests/long.ycp' 'testsuite'
-<1> [ui-component] YUIComponentCreator.cc(createInternal):XXX Creating UI component for ""
-<1> [Y2Perl] Y2PerlComponent.cc(Y2PerlComponent):XXX Creating Y2PerlComponent
-<1> [wfm] Y2WFMComponent.cc(SetLanguage):XXX GET encoding for C: ANSI_X3.4-1968
-<1> [wfm] Y2CCWFM.cc(createInLevel):XXX Parsing finished
-<1> [liby2] genericfrontend.cc(main):XXX YAST_IS_RUNNING is yes
-<1> [YCP] tests/long.ycp:4 3*2**30: 3221225472
-<1> [YCP] tests/long.ycp:5 3*2**30: 3221225472 (class)
-<1> [YCP] tests/long.ycp:6 3*2**40: 3298534883328
-<1> [YCP] tests/long.ycp:7 3*2**40: 3298534883328 (class)
-<1> [YCP] tests/long.ycp:12 -7 * 2**30: -7516192768
-<1> [YCP] tests/long.ycp:13 -7 * 2**30: -7516192768 class
-<1> [YCP] tests/long.ycp:12 -1 * 2**30: -1073741824
-<1> [YCP] tests/long.ycp:13 -1 * 2**30: -1073741824 class
-<1> [YCP] tests/long.ycp:12 1 * 2**30: 1073741824
-<1> [YCP] tests/long.ycp:13 1 * 2**30: 1073741824 class
-<1> [YCP] tests/long.ycp:12 3 * 2**30: 3221225472
-<1> [YCP] tests/long.ycp:13 3 * 2**30: 3221225472 class
-<1> [YCP] tests/long.ycp:12 7 * 2**30: 7516192768
-<1> [YCP] tests/long.ycp:13 7 * 2**30: 7516192768 class
-<1> [YCP] tests/long.ycp:18 loop -7 * 2**30: -7516192768
-<1> [YCP] tests/long.ycp:19 loop -7 * 2**30: -7516192768 class
-<1> [YCP] tests/long.ycp:18 loop -1 * 2**30: -1073741824
-<1> [YCP] tests/long.ycp:19 loop -1 * 2**30: -1073741824 class
-<1> [YCP] tests/long.ycp:18 loop 1 * 2**30: 1073741824
-<1> [YCP] tests/long.ycp:19 loop 1 * 2**30: 1073741824 class
-<1> [YCP] tests/long.ycp:18 loop 3 * 2**30: 3221225472
-<1> [YCP] tests/long.ycp:19 loop 3 * 2**30: 3221225472 class
-<1> [YCP] tests/long.ycp:18 loop 7 * 2**30: 7516192768
-<1> [YCP] tests/long.ycp:19 loop 7 * 2**30: 7516192768 class
-<1> [wfm] WFMSubAgent.cc(~WFMSubAgent):XXX Deleting SubAgent: 0 scr
-<1> [liby2] genericfrontend.cc(main):XXX Finished YaST2 component 'y2base'
-<1> [liby2] genericfrontend.cc(main):XXX Exiting with client return value 'nil'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/long.out new/yast2-perl-bindings-2.24.4/testsuite/tests/long.out
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/long.out 2013-01-22 11:41:05.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/long.out 1970-01-01 01:00:00.000000000 +0100
@@ -1 +0,0 @@
-(`result (nil))
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/long.pm new/yast2-perl-bindings-2.24.4/testsuite/tests/long.pm
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/long.pm 2013-01-22 11:41:05.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/long.pm 1970-01-01 01:00:00.000000000 +0100
@@ -1,74 +0,0 @@
-#! /usr/bin/perl
-
-package long;
-
-use warnings;
-use strict;
-
-our %TYPEINFO;
-
-
-use YaST::YCP qw(Integer);
-
-BEGIN { $TYPEINFO{three_billion} = ["function", "integer"]; }
-sub three_billion
-{
- my $class = shift;
- return 3 * 1024 * 1024 *1024;
-}
-
-BEGIN { $TYPEINFO{three_billion_c} = ["function", "integer"]; }
-sub three_billion_c
-{
- my $class = shift;
- return Integer(3 * 1024 * 1024 *1024);
-}
-
-BEGIN { $TYPEINFO{three_trillion} = ["function", "integer"]; }
-sub three_trillion
-{
- my $class = shift;
- return 3 * 1024 * 1024 * 1024 *1024;
-}
-
-BEGIN { $TYPEINFO{three_trillion_c} = ["function", "integer"]; }
-sub three_trillion_c
-{
- my $class = shift;
- return Integer(3 * 1024 * 1024 * 1024 *1024);
-}
-
-BEGIN { $TYPEINFO{big_num} = ["function", "integer", "integer", "integer"]; }
-sub big_num
-{
- my $class = shift;
- my ($mantissa, $k_exp) = @_;
- foreach (1..$k_exp) {
- $mantissa *= 1024;
- }
- return $mantissa;
-}
-
-BEGIN { $TYPEINFO{big_num_c} = ["function", "integer", "integer", "integer"]; }
-sub big_num_c
-{
- my $class = shift;
- return Integer ($class->big_num (@_));
-}
-
-BEGIN { $TYPEINFO{loop} = ["function", "integer", "integer"]; }
-sub loop
-{
- my $class = shift;
- my $arg =shift;
- return $arg;
-}
-
-BEGIN { $TYPEINFO{loop_c} = ["function", "integer", "integer"]; }
-sub loop_c
-{
- my $class = shift;
- return Integer ($class->loop (@_));
-}
-
-1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/long.ycp new/yast2-perl-bindings-2.24.4/testsuite/tests/long.ycp
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/long.ycp 2013-01-22 11:41:05.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/long.ycp 1970-01-01 01:00:00.000000000 +0100
@@ -1,21 +0,0 @@
-// #127896, #75798
-{
- import "long";
- y2milestone ("3*2**30: %1", long::three_billion ());
- y2milestone ("3*2**30: %1 (class)", long::three_billion_c ());
- y2milestone ("3*2**40: %1", long::three_trillion ());
- y2milestone ("3*2**40: %1 (class)", long::three_trillion_c ());
-
- // 3 fits to UV, not IV
- list<integer> lm = [-7, -1, 1, 3, 7];
- foreach (integer m, lm, {
- y2milestone ("%1 * 2**30: %2", m, long::big_num (m, 3));
- y2milestone ("%1 * 2**30: %2 class", m, long::big_num_c (m, 3));
- });
-
- integer g = 1024*1024*1024;
- foreach (integer m, lm, {
- y2milestone ("loop %1 * 2**30: %2", m, long::loop (m * g));
- y2milestone ("loop %1 * 2**30: %2 class", m, long::loop_c (m * g));
- });
-}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/reference.err new/yast2-perl-bindings-2.24.4/testsuite/tests/reference.err
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/reference.err 2013-01-22 11:41:05.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/reference.err 1970-01-01 01:00:00.000000000 +0100
@@ -1,15 +0,0 @@
-<1> [liby2] genericfrontend.cc(main):XXX Launched YaST2 component 'y2base' '-l' '-' '-n' 'reference=perl' 'tests/reference.ycp' 'testsuite'
-<1> [ui-component] YUIComponentCreator.cc(createInternal):XXX Creating UI component for ""
-<1> [Y2Perl] Y2PerlComponent.cc(Y2PerlComponent):XXX Creating Y2PerlComponent
-<1> [wfm] Y2WFMComponent.cc(SetLanguage):XXX GET encoding for C: ANSI_X3.4-1968
-<1> [wfm] Y2CCWFM.cc(createInLevel):XXX Parsing finished
-<1> [liby2] genericfrontend.cc(main):XXX YAST_IS_RUNNING is yes
-<1> [YCP] tests/reference.ycp:19 integer: 20
-<1> [YCP] tests/reference.ycp:20 float: 6.28
-<1> [YCP] tests/reference.ycp:21 boolean: true
-<1> [YCP] tests/reference.ycp:22 string: hu-ok
-<1> [YCP] tests/reference.ycp:23 list: [8, 2, 2, 3, 4, -3]
-<1> [YCP] tests/reference.ycp:24 map: $["a":"A", "b":"y-ok", "d":"123"]
-<1> [wfm] WFMSubAgent.cc(~WFMSubAgent):XXX Deleting SubAgent: 0 scr
-<1> [liby2] genericfrontend.cc(main):XXX Finished YaST2 component 'y2base'
-<1> [liby2] genericfrontend.cc(main):XXX Exiting with client return value 'nil'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/reference.out new/yast2-perl-bindings-2.24.4/testsuite/tests/reference.out
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/reference.out 2013-01-22 11:41:05.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/reference.out 1970-01-01 01:00:00.000000000 +0100
@@ -1 +0,0 @@
-(`result (nil))
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/reference.pm new/yast2-perl-bindings-2.24.4/testsuite/tests/reference.pm
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/reference.pm 2013-01-22 11:41:05.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/reference.pm 1970-01-01 01:00:00.000000000 +0100
@@ -1,52 +0,0 @@
-#! /usr/bin/perl
-
-package reference;
-
-use warnings;
-use strict;
-
-our %TYPEINFO;
-
-
-use YaST::YCP qw(:DATA);
-BEGIN { $TYPEINFO{refInt} = ["function", "void", "&integer"]; }
-sub refInt
-{
- ${$_[1]} += 8;
-}
-
-BEGIN { $TYPEINFO{refBool} = ["function", "void", "&boolean"]; }
-sub refBool
-{
- ${$_[1]} = 1;
-}
-
-BEGIN { $TYPEINFO{refString} = ["function", "void", "&string"]; }
-sub refString
-{
- ${$_[1]} .= "-ok";
-}
-
-BEGIN { $TYPEINFO{refFloat} = ["function", "void", "&float"]; }
-sub refFloat
-{
- ${$_[1]} *= 2;
-}
-
-BEGIN { $TYPEINFO{refListInt} = ["function", "void", ["&list", "integer"]]; }
-sub refListInt
-{
- $_[1][0] = 8;
- $_[1][1]++;
- push @{$_[1]}, "-3";
-}
-
-BEGIN { $TYPEINFO{refMapStringString} = ["function", "void", ["&map", "string", "string"]]; }
-sub refMapStringString
-{
- $_[1]->{a} = "A";
- $_[1]->{b} .= "-ok";
- delete $_[1]->{c};
-}
-
-1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/reference.ycp new/yast2-perl-bindings-2.24.4/testsuite/tests/reference.ycp
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/reference.ycp 2013-01-22 11:41:05.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/reference.ycp 1970-01-01 01:00:00.000000000 +0100
@@ -1,25 +0,0 @@
-//
-{
- import "reference";
-
- integer i = 12;
- float f = 3.14;
- boolean b = false;
- string s = "hu";
- list<integer> l = [0, 1, 2, 3, 4];
- map m = $["a":"x", "b":"y", "c":"z", "d":"123"];
-
- reference::refInt(i);
- reference::refFloat(f);
- reference::refBool(b);
- reference::refString(s);
- reference::refListInt(l);
- reference::refMapStringString(m);
-
- y2milestone ("integer: %1", i);
- y2milestone ("float: %1", f);
- y2milestone ("boolean: %1", b);
- y2milestone ("string: %1", s);
- y2milestone ("list: %1", l);
- y2milestone ("map: %1", m);
-}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/simple1.err new/yast2-perl-bindings-2.24.4/testsuite/tests/simple1.err
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/simple1.err 2013-01-22 11:41:05.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/simple1.err 1970-01-01 01:00:00.000000000 +0100
@@ -1,10 +0,0 @@
-<1> [liby2] genericfrontend.cc(main):XXX Launched YaST2 component 'y2base' '-l' '-' '-n' 'simple1=perl' 'tests/simple1.ycp' 'testsuite'
-<1> [ui-component] YUIComponentCreator.cc(createInternal):XXX Creating UI component for ""
-<1> [Y2Perl] Y2PerlComponent.cc(Y2PerlComponent):XXX Creating Y2PerlComponent
-<1> [wfm] Y2CCWFM.cc(createInLevel):XXX Parsing finished
-<1> [wfm] Y2WFMComponent.cc(SetLanguage):XXX GET encoding for C: ANSI_X3.4-1968
-<1> [liby2] genericfrontend.cc(main):XXX YAST_IS_RUNNING is yes
-<1> [YCP] tests/simple1.ycp:6 Hello, world
-<1> [wfm] WFMSubAgent.cc(~WFMSubAgent):XXX Deleting SubAgent: 0 scr
-<1> [liby2] genericfrontend.cc(main):XXX Finished YaST2 component 'y2base'
-<1> [liby2] genericfrontend.cc(main):XXX Exiting with client return value 'nil'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/simple1.out new/yast2-perl-bindings-2.24.4/testsuite/tests/simple1.out
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/simple1.out 2013-01-22 11:41:05.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/simple1.out 1970-01-01 01:00:00.000000000 +0100
@@ -1 +0,0 @@
-(`result (nil))
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/simple1.pm new/yast2-perl-bindings-2.24.4/testsuite/tests/simple1.pm
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/simple1.pm 2013-01-22 11:41:05.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/simple1.pm 1970-01-01 01:00:00.000000000 +0100
@@ -1,9 +0,0 @@
-package simple1;
-
-BEGIN { $TYPEINFO{hello} = ["function", "string"]; }
-sub hello
-{
- return "Hello, world";
-}
-
-1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/simple1.ycp new/yast2-perl-bindings-2.24.4/testsuite/tests/simple1.ycp
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/simple1.ycp 2013-01-22 11:41:05.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/simple1.ycp 1970-01-01 01:00:00.000000000 +0100
@@ -1,7 +0,0 @@
-//
-{
- import "simple1";
-
-
- y2milestone ("%1", simple1::hello ());
-}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/testpfunc1.err new/yast2-perl-bindings-2.24.4/testsuite/tests/testpfunc1.err
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/testpfunc1.err 2013-01-22 11:41:05.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/testpfunc1.err 1970-01-01 01:00:00.000000000 +0100
@@ -1,13 +0,0 @@
-<1> [liby2] genericfrontend.cc(main):XXX Launched YaST2 component 'y2base' '-l' '-' '-n' 'testpfunc1=perl' 'tests/testpfunc1.ycp' 'testsuite'
-<1> [ui-component] YUIComponentCreator.cc(createInternal):XXX Creating UI component for ""
-<1> [Y2Perl] Y2PerlComponent.cc(Y2PerlComponent):XXX Creating Y2PerlComponent
-<1> [wfm] Y2CCWFM.cc(createInLevel):XXX Parsing finished
-<1> [wfm] Y2WFMComponent.cc(SetLanguage):XXX GET encoding for C: ANSI_X3.4-1968
-<1> [liby2] genericfrontend.cc(main):XXX YAST_IS_RUNNING is yes
-<1> [YCP] tests/testpfunc1.ycp:5 rxmatch (abracadabra, [a-d]*): true
-<1> [YCP] tests/testpfunc1.ycp:7 rxmatch (abracadabra, ^[a-d]*$): false
-<1> [YCP] tests/testpfunc1.ycp:10 lengths (["one", "two", "three"]): [3, 3, 5]
-<1> [YCP] tests/testpfunc1.ycp:13 amap ($["one":"two"]): $["a":"1", "b":"two"]
-<1> [wfm] WFMSubAgent.cc(~WFMSubAgent):XXX Deleting SubAgent: 0 scr
-<1> [liby2] genericfrontend.cc(main):XXX Finished YaST2 component 'y2base'
-<1> [liby2] genericfrontend.cc(main):XXX Exiting with client return value 'nil'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/testpfunc1.out new/yast2-perl-bindings-2.24.4/testsuite/tests/testpfunc1.out
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/testpfunc1.out 2013-01-22 11:41:05.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/testpfunc1.out 1970-01-01 01:00:00.000000000 +0100
@@ -1 +0,0 @@
-(`result (nil))
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/testpfunc1.pm new/yast2-perl-bindings-2.24.4/testsuite/tests/testpfunc1.pm
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/testpfunc1.pm 2013-01-22 11:41:05.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/testpfunc1.pm 1970-01-01 01:00:00.000000000 +0100
@@ -1,43 +0,0 @@
-#! /usr/bin/perl
-
-package testpfunc1;
-use warnings;
-use strict;
-
-our %TYPEINFO;
-
-BEGIN { $TYPEINFO{rxmatch} = ["function", "boolean", "string", "string"]; }
-sub rxmatch
-{
- my $self = shift;
- my ($string, $pattern) = @_;
- return $string =~ $pattern;
-}
-
-BEGIN { $TYPEINFO{lengths} = ["function", ["list", "integer"], ["list", "string"]]; }
-
-=pod
-
-Computes the lengths of the strings in the list.
-
-=cut
-
-sub lengths
-{
- my $self = shift;
- # warning, we get a REFERENCE to the list of strings
- return [ map (length, @{$_[0]}) ];
-}
-
-BEGIN { $TYPEINFO{amap} = ["function", [ 'map', 'string', 'any' ], [ 'map', 'string', 'any' ]]; }
-sub amap
-{
- my $self = shift;
- my $data = shift;
-
- my %returnMap = (a => 1, b => "two");
-
- return \%returnMap;
-}
-
-1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/testpfunc1.ycp new/yast2-perl-bindings-2.24.4/testsuite/tests/testpfunc1.ycp
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/testpfunc1.ycp 2013-01-22 11:41:05.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/testpfunc1.ycp 1970-01-01 01:00:00.000000000 +0100
@@ -1,15 +0,0 @@
-//
-{
- import "testpfunc1";
-
- y2milestone ("rxmatch (%1, %2): %3", "abracadabra", "[a-d]*",
- testpfunc1::rxmatch ("abracadabra", "[a-d]*"));
- y2milestone ("rxmatch (%1, %2): %3", "abracadabra", "^[a-d]*$",
- testpfunc1::rxmatch ("abracadabra", "^[a-d]*$"));
-
- y2milestone ("lengths (%1): %2", ["one", "two", "three"],
- testpfunc1::lengths (["one", "two", "three"]));
-
- y2milestone ("amap (%1): %2", $["one": "two"],
- testpfunc1::amap ($["one": "two"]));
-}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/testpfunc2.err new/yast2-perl-bindings-2.24.4/testsuite/tests/testpfunc2.err
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/testpfunc2.err 2013-01-22 11:41:05.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/testpfunc2.err 1970-01-01 01:00:00.000000000 +0100
@@ -1,11 +0,0 @@
-<1> [liby2] genericfrontend.cc(main):XXX Launched YaST2 component 'y2base' '-l' '-' '-n' 'testpfunc2=perl' 'tests/testpfunc2.ycp' 'testsuite'
-<1> [ui-component] YUIComponentCreator.cc(createInternal):XXX Creating UI component for ""
-<1> [Y2Perl] Y2PerlComponent.cc(Y2PerlComponent):XXX Creating Y2PerlComponent
-<1> [wfm] Y2CCWFM.cc(createInLevel):XXX Parsing finished
-<1> [wfm] Y2WFMComponent.cc(SetLanguage):XXX GET encoding for C: ANSI_X3.4-1968
-<1> [liby2] genericfrontend.cc(main):XXX YAST_IS_RUNNING is yes
-<1> [YCP] tests/testpfunc2.ycp:5 nested: Hello, world
-<1> [wfm] WFMSubAgent.cc(~WFMSubAgent):XXX Deleting SubAgent: 0 scr
-<1> [liby2] genericfrontend.cc(main):XXX Finished YaST2 component 'y2base'
-<1> [liby2] genericfrontend.cc(main):XXX Exiting with client return value 'nil'
-<1> [Y2Perl] YPerl.cc(destroy):XXX Shutting down embedded Perl interpreter.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/testpfunc2.out new/yast2-perl-bindings-2.24.4/testsuite/tests/testpfunc2.out
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/testpfunc2.out 2013-01-22 11:41:05.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/testpfunc2.out 1970-01-01 01:00:00.000000000 +0100
@@ -1 +0,0 @@
-(`result (nil))
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/testpfunc2.ycp new/yast2-perl-bindings-2.24.4/testsuite/tests/testpfunc2.ycp
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/testpfunc2.ycp 2013-01-22 11:41:05.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/testpfunc2.ycp 1970-01-01 01:00:00.000000000 +0100
@@ -1,6 +0,0 @@
-//
-{
- import "A::nested";
-
- y2milestone ("nested: %1", A::nested::hello ());
-}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/types.err new/yast2-perl-bindings-2.24.4/testsuite/tests/types.err
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/types.err 2013-01-22 11:41:05.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/types.err 1970-01-01 01:00:00.000000000 +0100
@@ -1,11 +0,0 @@
-<1> [liby2] genericfrontend.cc(main):XXX Launched YaST2 component 'y2base' '-l' '-' '-n' 'types=perl' 'tests/types.ycp' 'testsuite'
-<1> [ui-component] YUIComponentCreator.cc(createInternal):XXX Creating UI component for ""
-<1> [Y2Perl] Y2PerlComponent.cc(Y2PerlComponent):XXX Creating Y2PerlComponent
-<1> [wfm] Y2WFMComponent.cc(SetLanguage):XXX GET encoding for C: ANSI_X3.4-1968
-<1> [wfm] Y2CCWFM.cc(createInLevel):XXX Parsing finished
-<1> [liby2] genericfrontend.cc(main):XXX YAST_IS_RUNNING is yes
-<1> [YCP] tests/types.ycp:4 bool1: false
-<1> [YCP] tests/types.ycp:5 bool2: false
-<1> [wfm] WFMSubAgent.cc(~WFMSubAgent):XXX Deleting SubAgent: 0 scr
-<1> [liby2] genericfrontend.cc(main):XXX Finished YaST2 component 'y2base'
-<1> [liby2] genericfrontend.cc(main):XXX Exiting with client return value 'nil'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/types.out new/yast2-perl-bindings-2.24.4/testsuite/tests/types.out
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/types.out 2013-01-22 11:41:05.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/types.out 1970-01-01 01:00:00.000000000 +0100
@@ -1 +0,0 @@
-(`result (nil))
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/types.pm new/yast2-perl-bindings-2.24.4/testsuite/tests/types.pm
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/types.pm 2013-01-22 11:41:05.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/types.pm 1970-01-01 01:00:00.000000000 +0100
@@ -1,26 +0,0 @@
-#! /usr/bin/perl
-
-package types;
-
-use warnings;
-use strict;
-
-our %TYPEINFO;
-
-
-use YaST::YCP qw(Boolean);
-BEGIN { $TYPEINFO{bool1} = ["function", "boolean"]; }
-sub bool1
-{
- my $class = shift;
- return 0;
-}
-
-BEGIN { $TYPEINFO{bool2} = ["function", "boolean"]; }
-sub bool2
-{
- my $class = shift;
- return Boolean (0);
-}
-
-1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/types.ycp new/yast2-perl-bindings-2.24.4/testsuite/tests/types.ycp
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/types.ycp 2013-01-22 11:41:05.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/types.ycp 1970-01-01 01:00:00.000000000 +0100
@@ -1,6 +0,0 @@
-//
-{
- import "types";
- y2milestone ("bool1: %1", types::bool1 ());
- y2milestone ("bool2: %1", types::bool2 ());
-}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/types2.err new/yast2-perl-bindings-2.24.4/testsuite/tests/types2.err
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/types2.err 2013-01-22 11:41:05.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/types2.err 1970-01-01 01:00:00.000000000 +0100
@@ -1,12 +0,0 @@
-<1> [liby2] genericfrontend.cc(main):XXX Launched YaST2 component 'y2base' '-l' '-' '-n' 'types2=perl' 'tests/types2.ycp' 'testsuite'
-<1> [ui-component] YUIComponentCreator.cc(createInternal):XXX Creating UI component for ""
-<1> [Y2Perl] Y2PerlComponent.cc(Y2PerlComponent):XXX Creating Y2PerlComponent
-<1> [wfm] Y2WFMComponent.cc(SetLanguage):XXX GET encoding for C: ANSI_X3.4-1968
-<1> [wfm] Y2CCWFM.cc(createInLevel):XXX Parsing finished
-<1> [liby2] genericfrontend.cc(main):XXX YAST_IS_RUNNING is yes
-<1> [YCP] tests/types2.ycp:6 termloop: `MyTerm ("Hi", "42")
-<1> [YCP] tests/types2.ycp:7 termloop nt: `NestedTerm (`id ("42"), `MyTerm ("Hi", "42"))
-<1> [YCP] tests/types2.ycp:8 termreverse: `mreTyM ("42", "Hi")
-<1> [wfm] WFMSubAgent.cc(~WFMSubAgent):XXX Deleting SubAgent: 0 scr
-<1> [liby2] genericfrontend.cc(main):XXX Finished YaST2 component 'y2base'
-<1> [liby2] genericfrontend.cc(main):XXX Exiting with client return value 'nil'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/types2.out new/yast2-perl-bindings-2.24.4/testsuite/tests/types2.out
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/types2.out 2013-01-22 11:41:05.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/types2.out 1970-01-01 01:00:00.000000000 +0100
@@ -1 +0,0 @@
-(`result (nil))
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/types2.pm new/yast2-perl-bindings-2.24.4/testsuite/tests/types2.pm
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/types2.pm 2013-01-22 11:41:05.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/types2.pm 1970-01-01 01:00:00.000000000 +0100
@@ -1,29 +0,0 @@
-#! /usr/bin/perl
-
-package types2;
-
-use warnings;
-use strict;
-
-our %TYPEINFO;
-
-
-use YaST::YCP qw(:DATA);
-BEGIN { $TYPEINFO{termloop} = ["function", "term", "term"]; }
-sub termloop
-{
- my $class = shift;
- return shift;
-}
-
-BEGIN { $TYPEINFO{termreverse} = ["function", "term", "term"]; }
-sub termreverse
-{
- my $class = shift;
- my $t = shift;
-
- my @rargs = reverse @{$t->args};
- return Term (reverse ($t->name), @rargs);
-}
-
-1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-perl-bindings-2.24.0/testsuite/tests/types2.ycp new/yast2-perl-bindings-2.24.4/testsuite/tests/types2.ycp
--- old/yast2-perl-bindings-2.24.0/testsuite/tests/types2.ycp 2013-01-22 11:41:05.000000000 +0100
+++ new/yast2-perl-bindings-2.24.4/testsuite/tests/types2.ycp 1970-01-01 01:00:00.000000000 +0100
@@ -1,9 +0,0 @@
-//
-{
- import "types2";
- term t = `MyTerm ("Hi", 42);
- term nt = `NestedTerm (`id (42), t);
- y2milestone ("termloop: %1", types2::termloop (t));
- y2milestone ("termloop nt: %1", types2::termloop (nt));
- y2milestone ("termreverse: %1", types2::termreverse (t));
-}
--
To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org
For additional commands, e-mail: opensuse-commit+help@opensuse.org