Hello community,
here is the log from the commit of package yast2-perl-bindings for
openSUSE:Factory checked in at 2013-08-01 11:09:23
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
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-07-21 08:15:49.000000000 +0200
+++
/work/SRC/openSUSE:Factory/.yast2-perl-bindings.new/yast2-perl-bindings.changes
2013-08-01 11:09:25.000000000 +0200
@@ -1,0 +2,7 @@
+Wed Jul 31 08:36:40 UTC 2013 - [email protected]
+
+- converted from YCP to Ruby by YCP Killer
+ (https://github.com/yast/ycp-killer)
+- version 3.0.0
+
+-------------------------------------------------------------------
Old:
----
yast2-perl-bindings-2.24.6.tar.bz2
New:
----
yast2-perl-bindings-3.0.0.tar.bz2
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ yast2-perl-bindings.spec ++++++
--- /var/tmp/diff_new_pack.H92pyv/_old 2013-08-01 11:09:26.000000000 +0200
+++ /var/tmp/diff_new_pack.H92pyv/_new 2013-08-01 11:09:26.000000000 +0200
@@ -17,7 +17,7 @@
Name: yast2-perl-bindings
-Version: 2.24.6
+Version: 3.0.0
Release: 0
BuildRoot: %{_tmppath}/%{name}-%{version}-build
@@ -27,6 +27,7 @@
BuildRequires: libtool
BuildRequires: yast2-core-devel
BuildRequires: yast2-devtools
+BuildRequires: yast2-ruby-bindings >= 1.0.0
BuildRequires: yast2-ycp-ui-bindings-devel
# YCPValue::valuetype_str()
++++++ yast2-perl-bindings-2.24.6.tar.bz2 -> yast2-perl-bindings-3.0.0.tar.bz2
++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/yast2-perl-bindings-2.24.6/VERSION
new/yast2-perl-bindings-3.0.0/VERSION
--- old/yast2-perl-bindings-2.24.6/VERSION 2013-07-18 13:25:58.000000000
+0200
+++ new/yast2-perl-bindings-3.0.0/VERSION 2013-07-30 14:01:37.000000000
+0200
@@ -1 +1 @@
-2.24.6
+3.0.0
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/yast2-perl-bindings-2.24.6/configure
new/yast2-perl-bindings-3.0.0/configure
--- old/yast2-perl-bindings-2.24.6/configure 2013-07-18 15:18:46.000000000
+0200
+++ new/yast2-perl-bindings-3.0.0/configure 2013-07-31 10:50:09.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.6.
+# Generated by GNU Autoconf 2.69 for yast2-perl-bindings 3.0.0.
#
# 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.6'
-PACKAGE_STRING='yast2-perl-bindings 2.24.6'
+PACKAGE_VERSION='3.0.0'
+PACKAGE_STRING='yast2-perl-bindings 3.0.0'
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.6 to adapt to many kinds of
systems.
+\`configure' configures yast2-perl-bindings 3.0.0 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.6:";;
+ short | recursive ) echo "Configuration of yast2-perl-bindings 3.0.0:";;
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.6
+yast2-perl-bindings configure 3.0.0
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.6, which was
+It was created by yast2-perl-bindings $as_me 3.0.0, 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.6'
+ VERSION='3.0.0'
cat >>confdefs.h <<_ACEOF
@@ -3082,7 +3082,7 @@
-VERSION="2.24.6"
+VERSION="3.0.0"
RPMNAME="yast2-perl-bindings"
MAINTAINER="Martin Vidner <[email protected]>"
@@ -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.6, which was
+This file was extended by yast2-perl-bindings $as_me 3.0.0, 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.6
+yast2-perl-bindings config.status 3.0.0
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.6, which was
+This file was extended by yast2-perl-bindings $as_me 3.0.0, 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.6
+yast2-perl-bindings config.status 3.0.0
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.6/configure.ac
new/yast2-perl-bindings-3.0.0/configure.ac
--- old/yast2-perl-bindings-2.24.6/configure.ac 2013-07-18 15:18:35.000000000
+0200
+++ new/yast2-perl-bindings-3.0.0/configure.ac 2013-07-31 10:49:58.000000000
+0200
@@ -1,9 +1,9 @@
dnl configure.ac for yast2-perl-bindings
dnl
-dnl -- This file is generated by y2autoconf 2.24.3 - DO NOT EDIT! --
+dnl -- This file is generated by y2autoconf 2.24.7 - DO NOT EDIT! --
dnl (edit configure.ac.in or configure.in.in instead)
-AC_INIT(yast2-perl-bindings, 2.24.6, http://bugs.opensuse.org/,
yast2-perl-bindings)
+AC_INIT(yast2-perl-bindings, 3.0.0, 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.6"
+VERSION="3.0.0"
RPMNAME="yast2-perl-bindings"
MAINTAINER="Martin Vidner <[email protected]>"
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/yast2-perl-bindings-2.24.6/testsuite/Makefile.am
new/yast2-perl-bindings-3.0.0/testsuite/Makefile.am
--- old/yast2-perl-bindings-2.24.6/testsuite/Makefile.am 2013-01-22
11:41:05.000000000 +0100
+++ new/yast2-perl-bindings-3.0.0/testsuite/Makefile.am 2013-07-30
14:01:37.000000000 +0200
@@ -2,6 +2,6 @@
# test-perl writes to the log :(
# but so does test-perl-min
TESTS = test-perl-script test-yast# test-perl
-EXTRA_DIST = $(TESTS) test-perl-min tests/*.ycp tests/*.pm tests/A/*.pm
tests/*.out tests/*.err tests.pl/*.pl tests.pl/*.ycp tests.pl/*.out
tests.pl/*.err
+EXTRA_DIST = $(TESTS) test-perl-min tests/*.rb tests/*.pm tests/A/*.pm
tests/*.out tests/*.err tests.pl/*.pl tests.pl/*.rb tests.pl/*.out
tests.pl/*.err
clean-local:
rm -f tmp.out.* tmp.err.*
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/yast2-perl-bindings-2.24.6/testsuite/Makefile.in
new/yast2-perl-bindings-3.0.0/testsuite/Makefile.in
--- old/yast2-perl-bindings-2.24.6/testsuite/Makefile.in 2013-07-18
15:18:49.000000000 +0200
+++ new/yast2-perl-bindings-3.0.0/testsuite/Makefile.in 2013-07-31
10:50:12.000000000 +0200
@@ -249,7 +249,7 @@
# test-perl writes to the log :(
# but so does test-perl-min
TESTS = test-perl-script test-yast# test-perl
-EXTRA_DIST = $(TESTS) test-perl-min tests/*.ycp tests/*.pm tests/A/*.pm
tests/*.out tests/*.err tests.pl/*.pl tests.pl/*.ycp tests.pl/*.out
tests.pl/*.err
+EXTRA_DIST = $(TESTS) test-perl-min tests/*.rb tests/*.pm tests/A/*.pm
tests/*.out tests/*.err tests.pl/*.pl tests.pl/*.rb tests.pl/*.out
tests.pl/*.err
all: all-am
.SUFFIXES:
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/yast2-perl-bindings-2.24.6/testsuite/test-yast
new/yast2-perl-bindings-3.0.0/testsuite/test-yast
--- old/yast2-perl-bindings-2.24.6/testsuite/test-yast 2013-07-17
14:20:55.000000000 +0200
+++ new/yast2-perl-bindings-3.0.0/testsuite/test-yast 2013-07-30
14:01:37.000000000 +0200
@@ -28,8 +28,8 @@
trap "rm -f $Y2DIR/modules $Y2DIR/plugin" EXIT TERM
RET=0
-for SCRIPT in $TDIR/*.ycp; do
- BASE=${SCRIPT%.ycp}
+for SCRIPT in $TDIR/*.rb; do
+ BASE=${SCRIPT%.rb}
OUT=$BASE.out
ERR=$BASE.err
BASE=${BASE#$TDIR/}
@@ -45,6 +45,8 @@
sed --in-place -e 's/\(\[[^]]*\] [^: ]*\):[0-9]\+/\1:XXX/' tmp.err.$BASE
# filter out uninteresting components
sed --in-place -e '/^<[0-9]> \[\(liby2\|wfm\|ui-component\)\] /d'
tmp.err.$BASE
+ # client call contains absolute path, ignore the line
+ sed --in-place '/^<1> \[Ruby\] yast\/wfm.rb:XXX Call client /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.6/testsuite/tests/Long.err
new/yast2-perl-bindings-3.0.0/testsuite/tests/Long.err
--- old/yast2-perl-bindings-2.24.6/testsuite/tests/Long.err 2013-07-17
14:20:55.000000000 +0200
+++ new/yast2-perl-bindings-3.0.0/testsuite/tests/Long.err 2013-07-30
14:01:37.000000000 +0200
@@ -1,25 +1,25 @@
<1> [Y2Perl] Y2PerlComponent.cc(Y2PerlComponent):XXX Creating Y2PerlComponent
-<1> [YCP] tests/Long.ycp:XXX 3*2**30: 3221225472
-<1> [YCP] tests/Long.ycp:XXX 3*2**30: 3221225472 (class)
-<1> [YCP] tests/Long.ycp:XXX 3*2**40: 3298534883328
-<1> [YCP] tests/Long.ycp:XXX 3*2**40: 3298534883328 (class)
-<1> [YCP] tests/Long.ycp:XXX -7 * 2**30: -7516192768
-<1> [YCP] tests/Long.ycp:XXX -7 * 2**30: -7516192768 class
-<1> [YCP] tests/Long.ycp:XXX -1 * 2**30: -1073741824
-<1> [YCP] tests/Long.ycp:XXX -1 * 2**30: -1073741824 class
-<1> [YCP] tests/Long.ycp:XXX 1 * 2**30: 1073741824
-<1> [YCP] tests/Long.ycp:XXX 1 * 2**30: 1073741824 class
-<1> [YCP] tests/Long.ycp:XXX 3 * 2**30: 3221225472
-<1> [YCP] tests/Long.ycp:XXX 3 * 2**30: 3221225472 class
-<1> [YCP] tests/Long.ycp:XXX 7 * 2**30: 7516192768
-<1> [YCP] tests/Long.ycp:XXX 7 * 2**30: 7516192768 class
-<1> [YCP] tests/Long.ycp:XXX loop -7 * 2**30: -7516192768
-<1> [YCP] tests/Long.ycp:XXX loop -7 * 2**30: -7516192768 class
-<1> [YCP] tests/Long.ycp:XXX loop -1 * 2**30: -1073741824
-<1> [YCP] tests/Long.ycp:XXX loop -1 * 2**30: -1073741824 class
-<1> [YCP] tests/Long.ycp:XXX loop 1 * 2**30: 1073741824
-<1> [YCP] tests/Long.ycp:XXX loop 1 * 2**30: 1073741824 class
-<1> [YCP] tests/Long.ycp:XXX loop 3 * 2**30: 3221225472
-<1> [YCP] tests/Long.ycp:XXX loop 3 * 2**30: 3221225472 class
-<1> [YCP] tests/Long.ycp:XXX loop 7 * 2**30: 7516192768
-<1> [YCP] tests/Long.ycp:XXX loop 7 * 2**30: 7516192768 class
+<1> [Ruby] tests/Long.rb:XXX 3*2**30: 3221225472
+<1> [Ruby] tests/Long.rb:XXX 3*2**30: 3221225472 (class)
+<1> [Ruby] tests/Long.rb:XXX 3*2**40: 3298534883328
+<1> [Ruby] tests/Long.rb:XXX 3*2**40: 3298534883328 (class)
+<1> [Ruby] tests/Long.rb:XXX -7 * 2**30: -7516192768
+<1> [Ruby] tests/Long.rb:XXX -7 * 2**30: -7516192768 class
+<1> [Ruby] tests/Long.rb:XXX -1 * 2**30: -1073741824
+<1> [Ruby] tests/Long.rb:XXX -1 * 2**30: -1073741824 class
+<1> [Ruby] tests/Long.rb:XXX 1 * 2**30: 1073741824
+<1> [Ruby] tests/Long.rb:XXX 1 * 2**30: 1073741824 class
+<1> [Ruby] tests/Long.rb:XXX 3 * 2**30: 3221225472
+<1> [Ruby] tests/Long.rb:XXX 3 * 2**30: 3221225472 class
+<1> [Ruby] tests/Long.rb:XXX 7 * 2**30: 7516192768
+<1> [Ruby] tests/Long.rb:XXX 7 * 2**30: 7516192768 class
+<1> [Ruby] tests/Long.rb:XXX loop -7 * 2**30: -7516192768
+<1> [Ruby] tests/Long.rb:XXX loop -7 * 2**30: -7516192768 class
+<1> [Ruby] tests/Long.rb:XXX loop -1 * 2**30: -1073741824
+<1> [Ruby] tests/Long.rb:XXX loop -1 * 2**30: -1073741824 class
+<1> [Ruby] tests/Long.rb:XXX loop 1 * 2**30: 1073741824
+<1> [Ruby] tests/Long.rb:XXX loop 1 * 2**30: 1073741824 class
+<1> [Ruby] tests/Long.rb:XXX loop 3 * 2**30: 3221225472
+<1> [Ruby] tests/Long.rb:XXX loop 3 * 2**30: 3221225472 class
+<1> [Ruby] tests/Long.rb:XXX loop 7 * 2**30: 7516192768
+<1> [Ruby] tests/Long.rb:XXX loop 7 * 2**30: 7516192768 class
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/yast2-perl-bindings-2.24.6/testsuite/tests/Long.rb
new/yast2-perl-bindings-3.0.0/testsuite/tests/Long.rb
--- old/yast2-perl-bindings-2.24.6/testsuite/tests/Long.rb 1970-01-01
01:00:00.000000000 +0100
+++ new/yast2-perl-bindings-3.0.0/testsuite/tests/Long.rb 2013-07-30
14:01:37.000000000 +0200
@@ -0,0 +1,39 @@
+# encoding: utf-8
+
+# #127896, #75798
+module Yast
+ class LongClient < Client
+ def main
+ Yast.import "Long"
+ Builtins.y2milestone("3*2**30: %1", Long.three_billion)
+ Builtins.y2milestone("3*2**30: %1 (class)", Long.three_billion_c)
+ Builtins.y2milestone("3*2**40: %1", Long.three_trillion)
+ Builtins.y2milestone("3*2**40: %1 (class)", Long.three_trillion_c)
+
+ # 3 fits to UV, not IV
+ @lm = [-7, -1, 1, 3, 7]
+ Builtins.foreach(@lm) do |m|
+ Builtins.y2milestone("%1 * 2**30: %2", m, Long.big_num(m, 3))
+ Builtins.y2milestone("%1 * 2**30: %2 class", m, Long.big_num_c(m, 3))
+ end
+
+ @g = 1024 * 1024 * 1024
+ Builtins.foreach(@lm) do |m|
+ Builtins.y2milestone(
+ "loop %1 * 2**30: %2",
+ m,
+ Long.loop(Ops.multiply(m, @g))
+ )
+ Builtins.y2milestone(
+ "loop %1 * 2**30: %2 class",
+ m,
+ Long.loop_c(Ops.multiply(m, @g))
+ )
+ end
+
+ nil
+ end
+ end
+end
+
+Yast::LongClient.new.main
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/yast2-perl-bindings-2.24.6/testsuite/tests/Long.ycp
new/yast2-perl-bindings-3.0.0/testsuite/tests/Long.ycp
--- old/yast2-perl-bindings-2.24.6/testsuite/tests/Long.ycp 2013-06-24
16:02:00.000000000 +0200
+++ new/yast2-perl-bindings-3.0.0/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.6/testsuite/tests/Reference.err
new/yast2-perl-bindings-3.0.0/testsuite/tests/Reference.err
--- old/yast2-perl-bindings-2.24.6/testsuite/tests/Reference.err
2013-07-17 14:20:55.000000000 +0200
+++ new/yast2-perl-bindings-3.0.0/testsuite/tests/Reference.err 2013-07-30
14:01:37.000000000 +0200
@@ -1,7 +1,7 @@
<1> [Y2Perl] Y2PerlComponent.cc(Y2PerlComponent):XXX Creating Y2PerlComponent
-<1> [YCP] tests/Reference.ycp:XXX integer: 20
-<1> [YCP] tests/Reference.ycp:XXX float: 6.28
-<1> [YCP] tests/Reference.ycp:XXX boolean: true
-<1> [YCP] tests/Reference.ycp:XXX string: hu-ok
-<1> [YCP] tests/Reference.ycp:XXX list: [8, 2, 2, 3, 4, -3]
-<1> [YCP] tests/Reference.ycp:XXX map: $["a":"A", "b":"y-ok", "d":"123"]
+<1> [Ruby] tests/Reference.rb:XXX integer: 20
+<1> [Ruby] tests/Reference.rb:XXX float: 6.28
+<1> [Ruby] tests/Reference.rb:XXX boolean: true
+<1> [Ruby] tests/Reference.rb:XXX string: hu-ok
+<1> [Ruby] tests/Reference.rb:XXX list: [8, 2, 2, 3, 4, -3]
+<1> [Ruby] tests/Reference.rb:XXX map: $["a":"A", "b":"y-ok", "d":"123"]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/yast2-perl-bindings-2.24.6/testsuite/tests/Reference.rb
new/yast2-perl-bindings-3.0.0/testsuite/tests/Reference.rb
--- old/yast2-perl-bindings-2.24.6/testsuite/tests/Reference.rb 1970-01-01
01:00:00.000000000 +0100
+++ new/yast2-perl-bindings-3.0.0/testsuite/tests/Reference.rb 2013-07-30
14:01:37.000000000 +0200
@@ -0,0 +1,47 @@
+# encoding: utf-8
+
+#
+module Yast
+ class ReferenceClient < Client
+ def main
+ Yast.import "Reference"
+
+ @i = 12
+ @f = 3.14
+ @b = false
+ @s = "hu"
+ @l = [0, 1, 2, 3, 4]
+ @m = { "a" => "x", "b" => "y", "c" => "z", "d" => "123" }
+
+ i_ref = arg_ref(@i)
+ Reference.refInt(i_ref)
+ @i = i_ref.value
+ f_ref = arg_ref(@f)
+ Reference.refFloat(f_ref)
+ @f = f_ref.value
+ b_ref = arg_ref(@b)
+ Reference.refBool(b_ref)
+ @b = b_ref.value
+ s_ref = arg_ref(@s)
+ Reference.refString(s_ref)
+ @s = s_ref.value
+ l_ref = arg_ref(@l)
+ Reference.refListInt(l_ref)
+ @l = l_ref.value
+ m_ref = arg_ref(@m)
+ Reference.refMapStringString(m_ref)
+ @m = m_ref.value
+
+ Builtins.y2milestone("integer: %1", @i)
+ Builtins.y2milestone("float: %1", @f)
+ Builtins.y2milestone("boolean: %1", @b)
+ Builtins.y2milestone("string: %1", @s)
+ Builtins.y2milestone("list: %1", @l)
+ Builtins.y2milestone("map: %1", @m)
+
+ nil
+ end
+ end
+end
+
+Yast::ReferenceClient.new.main
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/yast2-perl-bindings-2.24.6/testsuite/tests/Reference.ycp
new/yast2-perl-bindings-3.0.0/testsuite/tests/Reference.ycp
--- old/yast2-perl-bindings-2.24.6/testsuite/tests/Reference.ycp
2013-06-24 16:02:00.000000000 +0200
+++ new/yast2-perl-bindings-3.0.0/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<string,string> 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.6/testsuite/tests/Simple1.err
new/yast2-perl-bindings-3.0.0/testsuite/tests/Simple1.err
--- old/yast2-perl-bindings-2.24.6/testsuite/tests/Simple1.err 2013-07-17
14:20:55.000000000 +0200
+++ new/yast2-perl-bindings-3.0.0/testsuite/tests/Simple1.err 2013-07-30
14:01:37.000000000 +0200
@@ -1,2 +1,2 @@
<1> [Y2Perl] Y2PerlComponent.cc(Y2PerlComponent):XXX Creating Y2PerlComponent
-<1> [YCP] tests/Simple1.ycp:XXX Hello, world
+<1> [Ruby] tests/Simple1.rb:XXX Hello, world
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/yast2-perl-bindings-2.24.6/testsuite/tests/Simple1.rb
new/yast2-perl-bindings-3.0.0/testsuite/tests/Simple1.rb
--- old/yast2-perl-bindings-2.24.6/testsuite/tests/Simple1.rb 1970-01-01
01:00:00.000000000 +0100
+++ new/yast2-perl-bindings-3.0.0/testsuite/tests/Simple1.rb 2013-07-30
14:01:37.000000000 +0200
@@ -0,0 +1,17 @@
+# encoding: utf-8
+
+#
+module Yast
+ class Simple1Client < Client
+ def main
+ Yast.import "Simple1"
+
+
+ Builtins.y2milestone("%1", Simple1.hello)
+
+ nil
+ end
+ end
+end
+
+Yast::Simple1Client.new.main
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/yast2-perl-bindings-2.24.6/testsuite/tests/Simple1.ycp
new/yast2-perl-bindings-3.0.0/testsuite/tests/Simple1.ycp
--- old/yast2-perl-bindings-2.24.6/testsuite/tests/Simple1.ycp 2013-06-24
16:02:00.000000000 +0200
+++ new/yast2-perl-bindings-3.0.0/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.6/testsuite/tests/Testpfunc1.err
new/yast2-perl-bindings-3.0.0/testsuite/tests/Testpfunc1.err
--- old/yast2-perl-bindings-2.24.6/testsuite/tests/Testpfunc1.err
2013-07-17 14:20:55.000000000 +0200
+++ new/yast2-perl-bindings-3.0.0/testsuite/tests/Testpfunc1.err
2013-07-30 14:01:37.000000000 +0200
@@ -1,5 +1,5 @@
<1> [Y2Perl] Y2PerlComponent.cc(Y2PerlComponent):XXX Creating Y2PerlComponent
-<1> [YCP] tests/Testpfunc1.ycp:XXX rxmatch (abracadabra, [a-d]*): true
-<1> [YCP] tests/Testpfunc1.ycp:XXX rxmatch (abracadabra, ^[a-d]*$): false
-<1> [YCP] tests/Testpfunc1.ycp:XXX lengths (["one", "two", "three"]): [3, 3, 5]
-<1> [YCP] tests/Testpfunc1.ycp:XXX amap ($["one":"two"]): $["a":"1", "b":"two"]
+<1> [Ruby] tests/Testpfunc1.rb:XXX rxmatch (abracadabra, [a-d]*): true
+<1> [Ruby] tests/Testpfunc1.rb:XXX rxmatch (abracadabra, ^[a-d]*$): false
+<1> [Ruby] tests/Testpfunc1.rb:XXX lengths (["one", "two", "three"]): [3, 3, 5]
+<1> [Ruby] tests/Testpfunc1.rb:XXX amap ($["one":"two"]): $["a":"1", "b":"two"]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/yast2-perl-bindings-2.24.6/testsuite/tests/Testpfunc1.rb
new/yast2-perl-bindings-3.0.0/testsuite/tests/Testpfunc1.rb
--- old/yast2-perl-bindings-2.24.6/testsuite/tests/Testpfunc1.rb
1970-01-01 01:00:00.000000000 +0100
+++ new/yast2-perl-bindings-3.0.0/testsuite/tests/Testpfunc1.rb 2013-07-30
14:01:37.000000000 +0200
@@ -0,0 +1,39 @@
+# encoding: utf-8
+
+#
+module Yast
+ class Testpfunc1Client < Client
+ def main
+ Yast.import "Testpfunc1"
+
+ Builtins.y2milestone(
+ "rxmatch (%1, %2): %3",
+ "abracadabra",
+ "[a-d]*",
+ Testpfunc1.rxmatch("abracadabra", "[a-d]*")
+ )
+ Builtins.y2milestone(
+ "rxmatch (%1, %2): %3",
+ "abracadabra",
+ "^[a-d]*$",
+ Testpfunc1.rxmatch("abracadabra", "^[a-d]*$")
+ )
+
+ Builtins.y2milestone(
+ "lengths (%1): %2",
+ ["one", "two", "three"],
+ Testpfunc1.lengths(["one", "two", "three"])
+ )
+
+ Builtins.y2milestone(
+ "amap (%1): %2",
+ { "one" => "two" },
+ Testpfunc1.amap({ "one" => "two" })
+ )
+
+ nil
+ end
+ end
+end
+
+Yast::Testpfunc1Client.new.main
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/yast2-perl-bindings-2.24.6/testsuite/tests/Testpfunc1.ycp
new/yast2-perl-bindings-3.0.0/testsuite/tests/Testpfunc1.ycp
--- old/yast2-perl-bindings-2.24.6/testsuite/tests/Testpfunc1.ycp
2013-06-24 16:02:00.000000000 +0200
+++ new/yast2-perl-bindings-3.0.0/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.6/testsuite/tests/Testpfunc2.err
new/yast2-perl-bindings-3.0.0/testsuite/tests/Testpfunc2.err
--- old/yast2-perl-bindings-2.24.6/testsuite/tests/Testpfunc2.err
2013-07-17 14:20:55.000000000 +0200
+++ new/yast2-perl-bindings-3.0.0/testsuite/tests/Testpfunc2.err
2013-07-30 14:01:37.000000000 +0200
@@ -1,3 +1,3 @@
<1> [Y2Perl] Y2PerlComponent.cc(Y2PerlComponent):XXX Creating Y2PerlComponent
-<1> [YCP] tests/Testpfunc2.ycp:XXX nested: Hello, world
+<1> [Ruby] tests/Testpfunc2.rb:XXX 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.6/testsuite/tests/Testpfunc2.rb
new/yast2-perl-bindings-3.0.0/testsuite/tests/Testpfunc2.rb
--- old/yast2-perl-bindings-2.24.6/testsuite/tests/Testpfunc2.rb
1970-01-01 01:00:00.000000000 +0100
+++ new/yast2-perl-bindings-3.0.0/testsuite/tests/Testpfunc2.rb 2013-07-30
14:01:37.000000000 +0200
@@ -0,0 +1,16 @@
+# encoding: utf-8
+
+#
+module Yast
+ class Testpfunc2Client < Client
+ def main
+ Yast.import "A::Nested"
+
+ Builtins.y2milestone("nested: %1", A::Nested.hello)
+
+ nil
+ end
+ end
+end
+
+Yast::Testpfunc2Client.new.main
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/yast2-perl-bindings-2.24.6/testsuite/tests/Testpfunc2.ycp
new/yast2-perl-bindings-3.0.0/testsuite/tests/Testpfunc2.ycp
--- old/yast2-perl-bindings-2.24.6/testsuite/tests/Testpfunc2.ycp
2013-06-24 16:02:00.000000000 +0200
+++ new/yast2-perl-bindings-3.0.0/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.6/testsuite/tests/Types.err
new/yast2-perl-bindings-3.0.0/testsuite/tests/Types.err
--- old/yast2-perl-bindings-2.24.6/testsuite/tests/Types.err 2013-07-17
14:20:55.000000000 +0200
+++ new/yast2-perl-bindings-3.0.0/testsuite/tests/Types.err 2013-07-30
14:01:37.000000000 +0200
@@ -1,3 +1,3 @@
<1> [Y2Perl] Y2PerlComponent.cc(Y2PerlComponent):XXX Creating Y2PerlComponent
-<1> [YCP] tests/Types.ycp:XXX bool1: false
-<1> [YCP] tests/Types.ycp:XXX bool2: false
+<1> [Ruby] tests/Types.rb:XXX bool1: false
+<1> [Ruby] tests/Types.rb:XXX bool2: false
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/yast2-perl-bindings-2.24.6/testsuite/tests/Types.rb
new/yast2-perl-bindings-3.0.0/testsuite/tests/Types.rb
--- old/yast2-perl-bindings-2.24.6/testsuite/tests/Types.rb 1970-01-01
01:00:00.000000000 +0100
+++ new/yast2-perl-bindings-3.0.0/testsuite/tests/Types.rb 2013-07-30
14:01:37.000000000 +0200
@@ -0,0 +1,16 @@
+# encoding: utf-8
+
+#
+module Yast
+ class TypesClient < Client
+ def main
+ Yast.import "Types"
+ Builtins.y2milestone("bool1: %1", Types.bool1)
+ Builtins.y2milestone("bool2: %1", Types.bool2)
+
+ nil
+ end
+ end
+end
+
+Yast::TypesClient.new.main
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/yast2-perl-bindings-2.24.6/testsuite/tests/Types.ycp
new/yast2-perl-bindings-3.0.0/testsuite/tests/Types.ycp
--- old/yast2-perl-bindings-2.24.6/testsuite/tests/Types.ycp 2013-06-24
16:02:00.000000000 +0200
+++ new/yast2-perl-bindings-3.0.0/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.6/testsuite/tests/Types2.err
new/yast2-perl-bindings-3.0.0/testsuite/tests/Types2.err
--- old/yast2-perl-bindings-2.24.6/testsuite/tests/Types2.err 2013-07-17
14:20:55.000000000 +0200
+++ new/yast2-perl-bindings-3.0.0/testsuite/tests/Types2.err 2013-07-30
14:01:37.000000000 +0200
@@ -1,4 +1,4 @@
<1> [Y2Perl] Y2PerlComponent.cc(Y2PerlComponent):XXX Creating Y2PerlComponent
-<1> [YCP] tests/Types2.ycp:XXX termloop: `MyTerm ("Hi", "42")
-<1> [YCP] tests/Types2.ycp:XXX termloop nt: `NestedTerm (`id ("42"), `MyTerm
("Hi", "42"))
-<1> [YCP] tests/Types2.ycp:XXX termreverse: `mreTyM ("42", "Hi")
+<1> [Ruby] tests/Types2.rb:XXX termloop: `MyTerm ("Hi", "42")
+<1> [Ruby] tests/Types2.rb:XXX termloop nt: `NestedTerm (`id ("42"), `MyTerm
("Hi", "42"))
+<1> [Ruby] tests/Types2.rb:XXX termreverse: `mreTyM ("42", "Hi")
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/yast2-perl-bindings-2.24.6/testsuite/tests/Types2.rb
new/yast2-perl-bindings-3.0.0/testsuite/tests/Types2.rb
--- old/yast2-perl-bindings-2.24.6/testsuite/tests/Types2.rb 1970-01-01
01:00:00.000000000 +0100
+++ new/yast2-perl-bindings-3.0.0/testsuite/tests/Types2.rb 2013-07-30
14:01:37.000000000 +0200
@@ -0,0 +1,19 @@
+# encoding: utf-8
+
+#
+module Yast
+ class Types2Client < Client
+ def main
+ Yast.import "Types2"
+ @t = term(:MyTerm, "Hi", 42)
+ @nt = term(:NestedTerm, Id(42), @t)
+ Builtins.y2milestone("termloop: %1", Types2.termloop(@t))
+ Builtins.y2milestone("termloop nt: %1", Types2.termloop(@nt))
+ Builtins.y2milestone("termreverse: %1", Types2.termreverse(@t))
+
+ nil
+ end
+ end
+end
+
+Yast::Types2Client.new.main
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/yast2-perl-bindings-2.24.6/testsuite/tests/Types2.ycp
new/yast2-perl-bindings-3.0.0/testsuite/tests/Types2.ycp
--- old/yast2-perl-bindings-2.24.6/testsuite/tests/Types2.ycp 2013-06-24
16:02:00.000000000 +0200
+++ new/yast2-perl-bindings-3.0.0/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));
-}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/yast2-perl-bindings-2.24.6/testsuite/tests.pl/Data.rb
new/yast2-perl-bindings-3.0.0/testsuite/tests.pl/Data.rb
--- old/yast2-perl-bindings-2.24.6/testsuite/tests.pl/Data.rb 1970-01-01
01:00:00.000000000 +0100
+++ new/yast2-perl-bindings-3.0.0/testsuite/tests.pl/Data.rb 2013-07-30
14:01:37.000000000 +0200
@@ -0,0 +1,18 @@
+# encoding: utf-8
+
+#
+require "yast"
+
+module Yast
+ class DataClass < Module
+ def loop(a)
+ a = deep_copy(a)
+ Builtins.y2milestone("loop: %1", a)
+ deep_copy(a)
+ end
+
+ publish :function => :loop, :type => "any (any)"
+ end
+
+ Data = DataClass.new
+end
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/yast2-perl-bindings-2.24.6/testsuite/tests.pl/Data.ycp
new/yast2-perl-bindings-3.0.0/testsuite/tests.pl/Data.ycp
--- old/yast2-perl-bindings-2.24.6/testsuite/tests.pl/Data.ycp 2013-01-22
11:41:05.000000000 +0100
+++ new/yast2-perl-bindings-3.0.0/testsuite/tests.pl/Data.ycp 1970-01-01
01:00:00.000000000 +0100
@@ -1,8 +0,0 @@
-//
-{
- module "Data";
- global define any loop (any a) {
- y2milestone ("loop: %1", a);
- return a;
- }
-}
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
