Hello community, here is the log from the commit of package yast2-samba-client for openSUSE:Factory checked in at 2020-06-10 00:36:22 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/yast2-samba-client (Old) and /work/SRC/openSUSE:Factory/.yast2-samba-client.new.3606 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "yast2-samba-client" Wed Jun 10 00:36:22 2020 rev:104 rq:809972 version:4.3.1 Changes: -------- --- /work/SRC/openSUSE:Factory/yast2-samba-client/yast2-samba-client.changes 2020-05-15 23:50:31.677337334 +0200 +++ /work/SRC/openSUSE:Factory/.yast2-samba-client.new.3606/yast2-samba-client.changes 2020-06-10 00:36:35.489104555 +0200 @@ -1,0 +2,6 @@ +Wed May 27 14:20:13 UTC 2020 - David Diaz <[email protected]> + +- Dropped legacy testsuite (related to bsc#1138668). +- 4.3.1 + +------------------------------------------------------------------- Old: ---- yast2-samba-client-4.3.0.tar.bz2 New: ---- yast2-samba-client-4.3.1.tar.bz2 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ yast2-samba-client.spec ++++++ --- /var/tmp/diff_new_pack.NJrN7R/_old 2020-06-10 00:36:38.461112528 +0200 +++ /var/tmp/diff_new_pack.NJrN7R/_new 2020-06-10 00:36:38.461112528 +0200 @@ -17,7 +17,7 @@ Name: yast2-samba-client -Version: 4.3.0 +Version: 4.3.1 Release: 0 Summary: YaST2 - Samba Client Configuration License: GPL-2.0-only @@ -26,12 +26,10 @@ Source0: %{name}-%{version}.tar.bz2 -BuildRequires: perl-XML-Writer BuildRequires: update-desktop-files BuildRequires: yast2-devtools >= 4.2.2 BuildRequires: yast2-pam BuildRequires: yast2-perl-bindings -BuildRequires: yast2-testsuite Requires: perl-XML-LibXML # new Pam.ycp API ++++++ yast2-samba-client-4.3.0.tar.bz2 -> yast2-samba-client-4.3.1.tar.bz2 ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-samba-client-4.3.0/package/yast2-samba-client.changes new/yast2-samba-client-4.3.1/package/yast2-samba-client.changes --- old/yast2-samba-client-4.3.0/package/yast2-samba-client.changes 2020-05-12 17:37:35.000000000 +0200 +++ new/yast2-samba-client-4.3.1/package/yast2-samba-client.changes 2020-05-28 16:17:36.000000000 +0200 @@ -1,4 +1,10 @@ ------------------------------------------------------------------- +Wed May 27 14:20:13 UTC 2020 - David Diaz <[email protected]> + +- Dropped legacy testsuite (related to bsc#1138668). +- 4.3.1 + +------------------------------------------------------------------- Tue May 12 14:57:19 UTC 2020 - josef Reidinger <jreidinger@localhost> - Autoyast schema: Allow optional types for string and map objects diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-samba-client-4.3.0/package/yast2-samba-client.spec new/yast2-samba-client-4.3.1/package/yast2-samba-client.spec --- old/yast2-samba-client-4.3.0/package/yast2-samba-client.spec 2020-05-12 17:37:35.000000000 +0200 +++ new/yast2-samba-client-4.3.1/package/yast2-samba-client.spec 2020-05-28 16:17:36.000000000 +0200 @@ -17,7 +17,7 @@ Name: yast2-samba-client -Version: 4.3.0 +Version: 4.3.1 Release: 0 Summary: YaST2 - Samba Client Configuration Group: System/YaST @@ -28,8 +28,6 @@ BuildRequires: yast2-pam BuildRequires: yast2-perl-bindings -BuildRequires: perl-XML-Writer -BuildRequires: yast2-testsuite BuildRequires: update-desktop-files BuildRequires: yast2-devtools >= 4.2.2 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-samba-client-4.3.0/testsuite/Makefile.am new/yast2-samba-client-4.3.1/testsuite/Makefile.am --- old/yast2-samba-client-4.3.0/testsuite/Makefile.am 2020-05-12 17:37:35.000000000 +0200 +++ new/yast2-samba-client-4.3.1/testsuite/Makefile.am 1970-01-01 01:00:00.000000000 +0100 @@ -1,21 +0,0 @@ -# -# Makefile.am for .../testsuite -# -# Do not edit this file (Makefile.am) as it will be overwritten! -# - -AUTOMAKE_OPTIONS = dejagnu -EXTRA_DIST = $(wildcard tests/*.out) $(wildcard tests/*.err) $(wildcard tests/*.rb) - -testsuite_prepare = @ydatadir@/testsuite/Makefile.testsuite - -all-local: $(testsuite_prepare) - make -f $(testsuite_prepare) RPMNAME=$(RPMNAME) srcdir=$(srcdir) - -clean-local: $(testsuite_prepare) - make -f $(testsuite_prepare) RPMNAME=$(RPMNAME) srcdir=$(srcdir) clean - -check-local: $(testsuite_prepare) - make -f $(testsuite_prepare) RPMNAME=$(RPMNAME) srcdir=$(srcdir) check - -# EOF diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-samba-client-4.3.0/testsuite/tests/SambaConfig_ExportImport.out new/yast2-samba-client-4.3.1/testsuite/tests/SambaConfig_ExportImport.out --- old/yast2-samba-client-4.3.0/testsuite/tests/SambaConfig_ExportImport.out 2020-05-12 17:37:35.000000000 +0200 +++ new/yast2-samba-client-4.3.1/testsuite/tests/SambaConfig_ExportImport.out 1970-01-01 01:00:00.000000000 +0100 @@ -1,3 +0,0 @@ -Dump $["_internal":$["abc":"ABC"], "a":$["Bee Bee":"x", "_comment":"A", "_disabled":true, "_modified":true, "_xxx":8], "b":$["Two Two":22, "no":nil], "removed":nil] -Return nil -Return [$["comment":"A", "disabled":true, "name":"a", "parameters":$["bee_bee":"x"]], $["name":"b", "parameters":$["two_two":"22"]]] diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-samba-client-4.3.0/testsuite/tests/SambaConfig_ExportImport.rb new/yast2-samba-client-4.3.1/testsuite/tests/SambaConfig_ExportImport.rb --- old/yast2-samba-client-4.3.0/testsuite/tests/SambaConfig_ExportImport.rb 2020-05-12 17:37:35.000000000 +0200 +++ new/yast2-samba-client-4.3.1/testsuite/tests/SambaConfig_ExportImport.rb 1970-01-01 01:00:00.000000000 +0100 @@ -1,35 +0,0 @@ -# encoding: utf-8 - -# test SambaConfig::Export: -# should remove modified flags and internal shares from config -module Yast - class SambaConfigExportImportClient < Client - def main - Yast.import "Testsuite" - Yast.import "SambaConfig" - - @i = { - "a" => { - "Bee Bee" => "x", - "_modified" => true, - "_disabled" => true, - "_xxx" => 8, - "_comment" => "A" - }, - "_internal" => { "abc" => "ABC" }, - "removed" => nil, - "b" => { "no" => nil, "Two Two" => 22 } - } - - Testsuite.Dump(@i) - - Testsuite.Test(lambda { SambaConfig.Import(@i) }, [{}, {}, {}], 0) - - Testsuite.Test(lambda { SambaConfig.Export }, [], 0) - - nil - end - end -end - -Yast::SambaConfigExportImportClient.new.main diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-samba-client-4.3.0/testsuite/tests/SambaConfig_GetGlobalCfgStr.out new/yast2-samba-client-4.3.1/testsuite/tests/SambaConfig_GetGlobalCfgStr.out --- old/yast2-samba-client-4.3.0/testsuite/tests/SambaConfig_GetGlobalCfgStr.out 2020-05-12 17:37:35.000000000 +0200 +++ new/yast2-samba-client-4.3.1/testsuite/tests/SambaConfig_GetGlobalCfgStr.out 1970-01-01 01:00:00.000000000 +0100 @@ -1,15 +0,0 @@ -Dump $["global":$["a":1, "b":true, "c":"string"], "share":$["sharekey":"sharevalue"]] -Dump [global] -Dump a = 1 -Dump b = 1 -Dump c = string -Dump -Dump [global] -Dump a = 2 -Dump b = 1 -Dump c = string -Dump -Dump [global] -Dump b = 1 -Dump c = string -Dump diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-samba-client-4.3.0/testsuite/tests/SambaConfig_GetGlobalCfgStr.rb new/yast2-samba-client-4.3.1/testsuite/tests/SambaConfig_GetGlobalCfgStr.rb --- old/yast2-samba-client-4.3.0/testsuite/tests/SambaConfig_GetGlobalCfgStr.rb 2020-05-12 17:37:35.000000000 +0200 +++ new/yast2-samba-client-4.3.1/testsuite/tests/SambaConfig_GetGlobalCfgStr.rb 1970-01-01 01:00:00.000000000 +0100 @@ -1,36 +0,0 @@ -# encoding: utf-8 - -# test SambaConfig_Global::GetGlobalCfgStr: -module Yast - class Samba_GlobalClient < Client - def main - Yast.import "Testsuite" - Yast.import "SambaConfig" - - @i = { - "global" => { - "a" => 1, - "b" => true, - "c"=> "string", - }, - "share" => { "sharekey" => "sharevalue" }, - } - - Testsuite.Dump(@i) - - SambaConfig.Import(@i) - # test output of normal globals read in - Testsuite.Dump(SambaConfig.GetGlobalCfgStr()) - j = { "a" => "2" } - # test override of a param - Testsuite.Dump(SambaConfig.GetGlobalCfgStr(j)) - # test override (removal) of a param - j["a"] = nil - Testsuite.Dump(SambaConfig.GetGlobalCfgStr(j)) - - nil - end - end -end - -Yast::Samba_GlobalClient.new.main diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-samba-client-4.3.0/testsuite/tests/SambaConfig_Global.out new/yast2-samba-client-4.3.1/testsuite/tests/SambaConfig_Global.out --- old/yast2-samba-client-4.3.0/testsuite/tests/SambaConfig_Global.out 2020-05-12 17:37:35.000000000 +0200 +++ new/yast2-samba-client-4.3.1/testsuite/tests/SambaConfig_Global.out 1970-01-01 01:00:00.000000000 +0100 @@ -1,7 +0,0 @@ -$VAR1 = 0; -$VAR1 = 1; -$VAR1 = 0; -$VAR1 = 1; -$VAR1 = [ - 'a' - ]; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-samba-client-4.3.0/testsuite/tests/SambaConfig_Global.pl new/yast2-samba-client-4.3.1/testsuite/tests/SambaConfig_Global.pl --- old/yast2-samba-client-4.3.0/testsuite/tests/SambaConfig_Global.pl 2020-05-12 17:37:35.000000000 +0200 +++ new/yast2-samba-client-4.3.1/testsuite/tests/SambaConfig_Global.pl 1970-01-01 01:00:00.000000000 +0100 @@ -1,20 +0,0 @@ -#!/usr/bin/perl - -use SambaConfig; -use Data::Dumper; - -# test Configured -print Dumper(SambaConfig->Configured()); -SambaConfig->Import({a=>{b=>"x"}}); -print Dumper(SambaConfig->Configured()); - -# test Get/Set Modified -print Dumper(SambaConfig->GetModified()); -SambaConfig->SetModified(); -print Dumper(SambaConfig->GetModified()); - -# test GetShares -print Dumper(SambaConfig->GetShares()); - - - diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-samba-client-4.3.0/testsuite/tests/SambaConfig_ReadWrite.out new/yast2-samba-client-4.3.1/testsuite/tests/SambaConfig_ReadWrite.out --- old/yast2-samba-client-4.3.0/testsuite/tests/SambaConfig_ReadWrite.out 2020-05-12 17:37:35.000000000 +0200 +++ new/yast2-samba-client-4.3.1/testsuite/tests/SambaConfig_ReadWrite.out 1970-01-01 01:00:00.000000000 +0100 @@ -1,25 +0,0 @@ -SambaConfig: [home] -SambaConfig: path = /dev - -SambaConfig: [a] -SambaConfig: b = y -SambaConfig: -SambaConfig: [global] -SambaConfig: abc = ABC - -SambaConfig: [a] -SambaConfig: _disabled = 1 -SambaConfig: c = z -SambaConfig: -SambaConfig: [global] -SambaConfig: def = DEF - -SambaConfig: [a] -SambaConfig: _comment = share disabled by gizo -SambaConfig: _disabled = 1 -SambaConfig: c = q -SambaConfig: -SambaConfig: [global] -SambaConfig: def = DEF -SambaConfig: ghc = GHC - diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-samba-client-4.3.0/testsuite/tests/SambaConfig_ReadWrite.pl new/yast2-samba-client-4.3.1/testsuite/tests/SambaConfig_ReadWrite.pl --- old/yast2-samba-client-4.3.0/testsuite/tests/SambaConfig_ReadWrite.pl 2020-05-12 17:37:35.000000000 +0200 +++ new/yast2-samba-client-4.3.1/testsuite/tests/SambaConfig_ReadWrite.pl 1970-01-01 01:00:00.000000000 +0100 @@ -1,66 +0,0 @@ -#!/usr/bin/perl - -use SambaConfig; -use Data::Dumper; - -$smb_conf = "/etc/samba/smb.conf"; -$smb_conf_bak = "/tmp/smb.conf"; -die "no permision to write to $smb_conf" unless -w $smb_conf; - -# backup smb.conf -if ( -f $smb_conf && not -f $smb_conf_bak ) { - open(SMB, "<", $smb_conf) or die $!; - open(BAK, ">", $smb_conf_bak) or die $!; - print BAK <SMB>; - close BAK; close SMB; -} -# truncate smb.conf -open(SMB, ">", $smb_conf) or die $!; close SMB; - -# no write -SambaConfig->Import({ - a => {b=>"y"}, - home => {path=>"/dev", _modified=>1}, - global => {x=>"y"}}); -SambaConfig->Write(); -SambaConfig->Import(); -SambaConfig->Read(); -SambaConfig->Dump(); - -# normal write -SambaConfig->Import({ - a => {b=>"y", _modified=>1}, - home => {path=>"/dev", _modified=>1}, - global => {_modified=>1, abc=>"ABC"}}); -SambaConfig->ShareRemove("home"); -SambaConfig->Write(); -SambaConfig->Import(); -SambaConfig->Read(); -SambaConfig->Dump(); - -# write disabled share -SambaConfig->Import({ - a => {b=>undef, c=>"z", _modified=>1, _disabled=>1}, - global => {_modified=>1, abc=>undef, def=>"DEF"}}); -SambaConfig->Write(); -SambaConfig->Import(); -SambaConfig->Read(); -SambaConfig->Dump(); - -# write (force) share with comment -SambaConfig->Import({ - a => {c=>"q",_disabled=>1,_comment=>"share disabled by gizo"}, - _my => {my=>1}, - global => {ghc=>"GHC"}}); -SambaConfig->Write(1); -SambaConfig->Import(); -SambaConfig->Read(); -SambaConfig->Dump(); - -# restore smb.conf -open(SMB, ">", $smb_conf) or die $!; -open(BAK, "<", $smb_conf_bak) or die $!; -print SMB <BAK>; -close BAK; close SMB; - - diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-samba-client-4.3.0/testsuite/tests/SambaConfig_Share.out new/yast2-samba-client-4.3.1/testsuite/tests/SambaConfig_Share.out --- old/yast2-samba-client-4.3.0/testsuite/tests/SambaConfig_Share.out 2020-05-12 17:37:35.000000000 +0200 +++ new/yast2-samba-client-4.3.1/testsuite/tests/SambaConfig_Share.out 1970-01-01 01:00:00.000000000 +0100 @@ -1,93 +0,0 @@ -$VAR1 = 'ShareRemove'; -$VAR2 = 1; -$VAR3 = 1; -$VAR4 = 1; -$VAR1 = 'ShareExists'; -$VAR2 = 1; -$VAR3 = 1; -$VAR4 = 1; -$VAR1 = 'ShareKeys'; -$VAR2 = 1; -$VAR3 = 1; -$VAR4 = 1; -$VAR1 = 'ShareSetStr'; -$VAR2 = 1; -$VAR3 = 1; -$VAR4 = 1; -$VAR5 = 1; -$VAR6 = 1; -$VAR7 = 1; -$VAR8 = 1; -$VAR9 = 1; -$VAR10 = 1; -$VAR11 = 1; -$VAR12 = 1; -$VAR13 = 1; -$VAR14 = 1; -$VAR1 = 'ShareGetKey'; -$VAR2 = 1; -$VAR3 = 1; -$VAR4 = 1; -$VAR5 = 1; -$VAR6 = 1; -$VAR7 = 1; -$VAR1 = 'ShareGetTruth (+inverted synonyms)'; -$VAR2 = 1; -$VAR3 = 1; -$VAR4 = 1; -$VAR5 = 1; -$VAR6 = 1; -$VAR7 = 1; -$VAR8 = 1; -$VAR9 = 1; -$VAR10 = 1; -$VAR1 = 'ShareGetInt'; -$VAR2 = 1; -$VAR3 = 1; -$VAR4 = 1; -$VAR5 = 1; -$VAR6 = 1; -$VAR1 = 'ShareSetInt, ShareSetTruth'; -$VAR2 = 1; -$VAR3 = 1; -$VAR4 = 1; -$VAR5 = 1; -$VAR6 = 1; -$VAR7 = 1; -$VAR8 = 1; -$VAR1 = 'Share Enable/Disable/Adjust/Enabled'; -$VAR2 = 1; -$VAR3 = 1; -$VAR4 = 1; -$VAR5 = 1; -$VAR6 = 1; -$VAR7 = 1; -$VAR8 = 1; -$VAR9 = 1; -$VAR10 = 1; -$VAR11 = 1; -$VAR12 = 1; -$VAR13 = 1; -$VAR1 = 'Share Get/Set/Update Map'; -$VAR2 = 1; -$VAR3 = 1; -$VAR4 = 1; -$VAR5 = 1; -$VAR6 = 1; -$VAR7 = 1; -$VAR8 = 1; -$VAR9 = 1; -$VAR1 = 'Share Get/Set Modified'; -$VAR2 = 1; -$VAR3 = 1; -$VAR4 = 1; -$VAR5 = 1; -$VAR6 = 1; -$VAR7 = 1; -$VAR1 = 'Share Get/Set Comment'; -$VAR2 = 1; -$VAR3 = 1; -$VAR4 = 1; -$VAR5 = 1; -$VAR6 = 1; -$VAR7 = 1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-samba-client-4.3.0/testsuite/tests/SambaConfig_Share.pl new/yast2-samba-client-4.3.1/testsuite/tests/SambaConfig_Share.pl --- old/yast2-samba-client-4.3.0/testsuite/tests/SambaConfig_Share.pl 2020-05-12 17:37:35.000000000 +0200 +++ new/yast2-samba-client-4.3.1/testsuite/tests/SambaConfig_Share.pl 1970-01-01 01:00:00.000000000 +0100 @@ -1,120 +0,0 @@ -#!/usr/bin/perl - -use SambaConfig; -use Data::Dumper; - -# test general shares - -SambaConfig->Import( -{ - a=>{x=>"y"}, - b=>{u=>"v", _internal=>"xxx", no=>undef}, - ro=>{"read only"=>"Yes", "root directory"=>"/root", int=>8}, - rw=>{"read only"=>"No", "root directory"=>"/dev/zero", _disabled=>1}, -}); - -print Dumper("ShareRemove", - !defined SambaConfig->ShareRemove(), - SambaConfig->ShareRemove("a"), - !SambaConfig->ShareRemove("a")); - -print Dumper("ShareExists", - !defined SambaConfig->ShareExists(), - !SambaConfig->ShareExists("a"), - SambaConfig->ShareExists("b")); - -print Dumper("ShareKeys", - !defined SambaConfig->ShareKeys(), - $#{SambaConfig->ShareKeys("a")}==-1, - $#{SambaConfig->ShareKeys("b")}==0); - -print Dumper("ShareSetStr", - !defined SambaConfig->ShareSetStr(), - !defined SambaConfig->ShareSetStr("g"), - SambaConfig->ShareSetStr("g","My Key", "My Val"), - !SambaConfig->ShareSetStr("g","Lock Dir"), - SambaConfig->ShareSetStr("g","Lock Dir", "/dev"), - SambaConfig->ShareSetStr("g","Lock Dir", "/home"), - !SambaConfig->ShareSetStr("g","Lock Dir", "/home"), - SambaConfig->ShareSetStr("g","Lock Dir"), - !SambaConfig->ShareSetStr("g","writable"), - SambaConfig->ShareSetStr("g","writable", 1), - !SambaConfig->ShareSetStr("g","writable", 1), - SambaConfig->ShareSetStr("g","writable", 0), - SambaConfig->ShareSetStr("g","writable")); - -print Dumper("ShareGetKey", - !defined SambaConfig->ShareGetStr(), - !defined SambaConfig->ShareGetStr("g"), - SambaConfig->ShareGetStr("ro","root","default") eq "/root", - SambaConfig->ShareGetStr("rw","root","default") eq "/dev/zero", - !defined SambaConfig->ShareGetStr("xx","root"), - SambaConfig->ShareGetStr("xx","root","default") eq "default"); - -print Dumper("ShareGetTruth (+inverted synonyms)", - !defined SambaConfig->ShareGetTruth(), - !defined SambaConfig->ShareGetTruth("g"), - !SambaConfig->ShareGetTruth("ro","writable"), - SambaConfig->ShareGetTruth("rw","writable"), - !defined SambaConfig->ShareGetTruth("xx","writable"), - SambaConfig->ShareGetTruth("xx","writable", 1), - SambaConfig->ShareGetTruth("ro","Read Only"), - !SambaConfig->ShareGetTruth("rw","Read Only"), - !SambaConfig->ShareGetTruth("xx","Read Only", 0)); - -print Dumper("ShareGetInt", - !defined SambaConfig->ShareGetInteger(), - !defined SambaConfig->ShareGetInteger("g"), - SambaConfig->ShareGetInteger("ro","int") == 8, - !defined SambaConfig->ShareGetInteger("rw","int"), - SambaConfig->ShareGetInteger("rw","int", 9) == 9); - -print Dumper("ShareSetInt, ShareSetTruth", - !defined SambaConfig->ShareSetTruth(), - !defined SambaConfig->ShareSetInteger("g"), - !SambaConfig->ShareSetInteger("ro","int", 8), - SambaConfig->ShareSetInteger("ro","int", 9), - !SambaConfig->ShareSetTruth("rw","truth"), - SambaConfig->ShareSetTruth("rw","truth", 1), - SambaConfig->ShareSetTruth("rw","truth", 0)); - -print Dumper("Share Enable/Disable/Adjust/Enabled", - !defined SambaConfig->ShareEnable(), - !defined SambaConfig->ShareEnable("xxxxx"), - !defined SambaConfig->ShareDisable(), - !defined SambaConfig->ShareDisable("xxxxx"), - !defined SambaConfig->ShareEnabled(), - !defined SambaConfig->ShareEnabled("xxxxx"), - !SambaConfig->ShareAdjust("ro", 1), - !SambaConfig->ShareAdjust("rw", 0), - SambaConfig->ShareAdjust("rw", 1), - SambaConfig->ShareAdjust("ro", 0), - SambaConfig->ShareEnabled("rw"), - !SambaConfig->ShareEnabled("ro")); - -print Dumper("Share Get/Set/Update Map", - !defined SambaConfig->ShareGetMap(), - !defined SambaConfig->ShareSetMap(), - !defined SambaConfig->ShareUpdateMap(), - SambaConfig->ShareSetMap("home", {a=>"ABC", x=>"XYZ"}), - !SambaConfig->ShareSetMap("home", {a=>"ABC", x=>"XYZ"}), - !SambaConfig->ShareUpdateMap("home", {x=>"123"}), - SambaConfig->ShareUpdateMap("home", {y=>"123"}), - length(%{SambaConfig->ShareGetMap("home")})==3); - - -print Dumper("Share Get/Set Modified", - !defined SambaConfig->ShareGetModified(), - !defined SambaConfig->ShareSetModified(), - !SambaConfig->ShareGetModified("mod"), - SambaConfig->ShareSetModified("mod"), - !SambaConfig->ShareSetModified("mod"), - SambaConfig->ShareGetModified("mod")); - -print Dumper("Share Get/Set Comment", - !defined SambaConfig->ShareGetComment(), - !defined SambaConfig->ShareSetComment(), - !defined SambaConfig->ShareGetComment("mod"), - SambaConfig->ShareSetComment("mod","comment"), - !SambaConfig->ShareSetComment("mod","comment"), - SambaConfig->ShareGetComment("mod") eq "comment"); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-samba-client-4.3.0/testsuite/tests/SambaNetJoin.out new/yast2-samba-client-4.3.1/testsuite/tests/SambaNetJoin.out --- old/yast2-samba-client-4.3.0/testsuite/tests/SambaNetJoin.out 2020-05-12 17:37:35.000000000 +0200 +++ new/yast2-samba-client-4.3.1/testsuite/tests/SambaNetJoin.out 1970-01-01 01:00:00.000000000 +0100 @@ -1,5 +0,0 @@ -$VAR1 = 1; -$VAR2 = 1; -$VAR3 = 1; -$VAR1 = 1; -$VAR2 = 1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-samba-client-4.3.0/testsuite/tests/SambaNetJoin.pl new/yast2-samba-client-4.3.1/testsuite/tests/SambaNetJoin.pl --- old/yast2-samba-client-4.3.0/testsuite/tests/SambaNetJoin.pl 2020-05-12 17:37:35.000000000 +0200 +++ new/yast2-samba-client-4.3.1/testsuite/tests/SambaNetJoin.pl 1970-01-01 01:00:00.000000000 +0100 @@ -1,26 +0,0 @@ -#!/usr/bin/perl - -use SambaNetJoin; -use lib "../src"; use SambaConfig; - -use Data::Dumper; - -## test agent -use YaST::YCP; -YaST::YCP::Import("Testsuite"); -my $e_ok = {target=>{bash_output=>{exit=>0}}}; -my $e_err = {target=>{bash_output=>{exit=>1, stdout=>"fake error"}}}; - -Testsuite->Init([{},{},$e_ok],undef); - -print Dumper( - SambaNetJoin->Test("xxx"), - SambaNetJoin->Test("xxx"), - !SambaNetJoin->Join("xxx")); - -SambaConfig->GlobalSetStr("netbios name", "TUX"); -Testsuite->Init([{},{},$e_err],undef); - -print Dumper( - !SambaNetJoin->Test("tux net"), - SambaNetJoin->Join("tux net", "fake level", "user", "****") eq "fake error"); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-samba-client-4.3.0/testsuite/tests/SambaNmbLookup.out new/yast2-samba-client-4.3.1/testsuite/tests/SambaNmbLookup.out --- old/yast2-samba-client-4.3.0/testsuite/tests/SambaNmbLookup.out 2020-05-12 17:37:35.000000000 +0200 +++ new/yast2-samba-client-4.3.1/testsuite/tests/SambaNmbLookup.out 1970-01-01 01:00:00.000000000 +0100 @@ -1,29 +0,0 @@ -$VAR1 = 1; -$VAR1 = 1; -$VAR1 = 1; -$VAR1 = 1; -$VAR1 = 1; -$VAR1 = []; -$VAR1 = []; -$VAR1 = [ - 'SUPERSONIC', - 'TEST' - ]; -$VAR1 = [ - 'DEBIAN_FANS', - 'SUPERSONIC (domin)', - 'TEST (domin)' - ]; -$VAR1 = 1; -$VAR1 = 1; -$VAR2 = 1; -$VAR3 = 1; -$VAR4 = 1; -$VAR1 = 1; -$VAR2 = 1; -$VAR3 = 1; -$VAR4 = 1; -$VAR1 = 1; -$VAR2 = 1; -$VAR3 = 1; -$VAR4 = 1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-samba-client-4.3.0/testsuite/tests/SambaNmbLookup.pl new/yast2-samba-client-4.3.1/testsuite/tests/SambaNmbLookup.pl --- old/yast2-samba-client-4.3.0/testsuite/tests/SambaNmbLookup.pl 2020-05-12 17:37:35.000000000 +0200 +++ new/yast2-samba-client-4.3.1/testsuite/tests/SambaNmbLookup.pl 1970-01-01 01:00:00.000000000 +0100 @@ -1,96 +0,0 @@ -#!/usr/bin/perl - -use Data::Dumper; - -use SambaNmbLookup; - -## test agent -use YaST::YCP qw(:DATA); -YaST::YCP::Import("Testsuite"); -my $e_err = {target=>{bash_output=>{exit=>0, stdout=>8}}, background=>{run_output=>0, kill=>1}}; -my $e_ok = {target=>{bash_output=>{exit=>0, stdout=>0}}, background=>{run_output=>1}}; -my $r_running = {background=>{isrunning=>1}}; -my $r_done = {background=>{isrunning=>0, newout=>[ - "WORKGROUP\tDEBIAN_FANS", - "LMB\tGIZO", - "MEMBERS\tGIZO", - "", - "WORKGROUP\tSUPERSONIC", - "PDC\tSATYR", - "DMB\tSATYR", - "LMB\tSATYR", - "MEMBERS\tSATYR", - "", - "WORKGROUP\tTEST", - "BDC\tTEST", -]}}; - -## fake modules -sub PackageSystem::Installed {exists $installed{$_[1]} ? $installed{$_[1]} : 0}; -sub Service::Status {exists $status{$_[1]} ? $status{$_[1]} : -1}; - - -## Start() -%installed = (); -print Dumper(!SambaNmbLookup->Start()); - -%installed = ("samba-client" => 1); -Testsuite->Init([{},{},$e_ok],undef); # run as root, exec nbstatus return ok -print Dumper(SambaNmbLookup->Start()); - -%installed = ("samba-client" => 1, "samba" => 1); -Testsuite->Init([{},{},$e_err],undef); # run as user, exec nbstatus return err -print Dumper(!SambaNmbLookup->Start()); - -%installed = ("samba-client" => 1, "samba" => 1); -$status{"nmb"}=0; # nmb is running -print Dumper(!SambaNmbLookup->Start()); - -%installed = ("samba-client" => 1, "samba" => 1); -$status{"nmb"}=1; # nmb is stopped -print Dumper(!SambaNmbLookup->Start()); - - -## nmbStatus() -$SambaNmbLookup::Nmbstatus_running=0; -SambaNmbLookup->checkNmbstatus(); # nmbstatus not running -print Dumper(SambaNmbLookup->GetAvailableNeighbours()); - -Testsuite->Init([$r_running,{},$e_err],undef); # background process is running -$SambaNmbLookup::Nmbstatus_running=1; -$SambaNmbLookup::wait = 0.4; # wait for 0.4 sec (instead of 120 sec) -SambaNmbLookup->checkNmbstatus(); -print Dumper(SambaNmbLookup->GetAvailableNeighbours()); - -Testsuite->Init([$r_done,{},$e_ok],undef); # background process is finished -$SambaNmbLookup::Nmbstatus_running=1; -SambaNmbLookup->checkNmbstatus(); -print Dumper(SambaNmbLookup->GetAvailableDomains()); - -Testsuite->Init([$r_done,{},$e_ok],undef); # background process is finished -$SambaNmbLookup::Nmbstatus_running=1; -$SambaNmbLookup::Nmbd_was_running=1; -SambaNmbLookup->checkNmbstatus(); -print Dumper(SambaNmbLookup->GetAvailableNeighbours(" (domin)")); - - -## Query funcs() -print Dumper(SambaNmbLookup->Available()); - -print Dumper( - !SambaNmbLookup->IsDomain("xxx"), - SambaNmbLookup->IsDomain("SUPERSONIC"), - SambaNmbLookup->IsDomain("TEST"), - !SambaNmbLookup->IsDomain("GIZO")); - -print Dumper( - !SambaNmbLookup->HasPDC("xxx"), - SambaNmbLookup->HasPDC("SUPERSONIC"), - !SambaNmbLookup->HasPDC("TEST"), - !SambaNmbLookup->HasPDC("GIZO")); - -print Dumper( - !SambaNmbLookup->HasBDC("xxx"), - !SambaNmbLookup->HasBDC("SUPERSONIC"), - SambaNmbLookup->HasBDC("TEST"), - !SambaNmbLookup->HasBDC("GIZO")); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-samba-client-4.3.0/testsuite/tests/SambaWinbind.out new/yast2-samba-client-4.3.1/testsuite/tests/SambaWinbind.out --- old/yast2-samba-client-4.3.0/testsuite/tests/SambaWinbind.out 2020-05-12 17:37:35.000000000 +0200 +++ new/yast2-samba-client-4.3.1/testsuite/tests/SambaWinbind.out 1970-01-01 01:00:00.000000000 +0100 @@ -1,44 +0,0 @@ -$VAR1 = 1; -$VAR1 = 1; -$VAR1 = 1; - -SambaConfig: [global] -SambaConfig: _modified = 1 -SambaConfig: idmap gid = 10000-20000 -SambaConfig: idmap uid = 10000-20000 - -Nsswitch::WriteDB(passwd, [files,nis]) -Nsswitch::WriteDB(group, [files,ldap,nis]) -Nsswitch::WriteDB(passwd, [files,winbind,nis]) -Nsswitch::WriteDB(group, [files,ldap,nis,winbind]) -PamSettings::SetValues(pam_unix2, auth, 'md5 nullok call_modules=files,nis') -PamSettings::SetValues(pam_unix2, account, 'md5 nullok call_modules=files,ldap,nis') -PamSettings::SetValues(pam_unix2, auth, 'md5 nullok call_modules=files,winbind,nis') -PamSettings::SetValues(pam_unix2, account, 'md5 nullok call_modules=files,ldap,nis,winbind') -PamSettings::SetValues(pam_unix2, auth, 'md5 nullok') -PamSettings::SetValues(pam_unix2, account, '') -PamSettings::SetValues(pam_unix2, auth, 'md5 nullok call_modules=winbind') -PamSettings::SetValues(pam_unix2, account, 'call_modules=winbind') -PamSettings::SetValues(pam_unix2, auth, 'call_modules=winbind') -PamSettings::SetValues(pam_unix2, account, 'call_modules=winbind') -$VAR1 = 1; -$VAR1 = 1; -Service::Adjust(winbind, enable) -$VAR1 = 1; -Service::Adjust(winbind, disable) -$VAR1 = 1; -$VAR1 = 1; -$VAR1 = 1; -Service::Start(winbind) -$VAR1 = 1; -Service::Start(winbind) -$VAR1 = 1; -Service::Restart(winbind) -$VAR1 = 1; -Service::Restart(winbind) -$VAR1 = 1; -Service::Stop(winbind) -$VAR1 = 1; -Service::Stop(winbind) -$VAR1 = 1; -$VAR1 = 1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-samba-client-4.3.0/testsuite/tests/SambaWinbind.pl new/yast2-samba-client-4.3.1/testsuite/tests/SambaWinbind.pl --- old/yast2-samba-client-4.3.0/testsuite/tests/SambaWinbind.pl 2020-05-12 17:37:35.000000000 +0200 +++ new/yast2-samba-client-4.3.1/testsuite/tests/SambaWinbind.pl 1970-01-01 01:00:00.000000000 +0100 @@ -1,118 +0,0 @@ -#!/usr/bin/perl - -use SambaWinbind; -use lib "../src"; use SambaConfig; - -use Data::Dumper; - -## fake modules -sub PackageSystem::Installed {$installed{$_[1]}} -sub Service::Enabled {$service_enabled} -sub Service::Status {$service_status} -sub Service::Adjust {print "Service::Adjust($_[1], $_[2])\n"; $service_adjust_return} -sub Service::Start {print "Service::Start($_[1])\n"; $service_start_return} -sub Service::Stop {print "Service::Stop($_[1])\n"; $service_stop_return} -sub Service::Restart {print "Service::Restart($_[1])\n"; $service_restart_return} -sub Nsswitch::WriteDb {print "Nsswitch::WriteDB($_[1], [",join(",",@{$_[2]}),"])\n"} -sub Nsswitch::ReadDb {$nssdb{$_[1]}} -sub Nsswitch::Write {$write} -sub PamSettings::GetValues {$pamdb{$_[2]}} -sub PamSettings::SetValues {print "PamSettings::SetValues($_[1], $_[2], '", join(" ", @{$_[3]}),"')\n"} - - -## IsEnabled() -$installed{"samba-winbind"} = 0; -$service_enabled = 0; -print Dumper(!SambaWinbind->IsEnabled()); - -$installed{"samba-winbind"} = 1; -$service_enabled = 0; -print Dumper(!SambaWinbind->IsEnabled()); - -$installed{"samba-winbind"} = 1; -$service_enabled = 1; -print Dumper(SambaWinbind->IsEnabled()); - - -## AdjustSambaConfig() -SambaWinbind->AdjustSambaConfig(0); -SambaConfig->Dump(); - -SambaWinbind->AdjustSambaConfig(1); -SambaConfig->Dump(); - - -## Adjust Nsswitch() -%nssdb = (passwd => [qw(files winbind nis)], group => [qw(files ldap nis)]); -$write = 1; -SambaWinbind->AdjustNsswitch(0); - -%nssdb = (passwd => [qw(files winbind nis)], group => [qw(files ldap nis)]); -$write = 0; -SambaWinbind->AdjustNsswitch(1); - - -## AdjustPam() -%pamdb = (auth => ["md5","call_modules=files,winbind,nis","nullok"], account => ["md5","call_modules=files,ldap,nis","nullok"]); -SambaWinbind->AdjustPam(0); - -%pamdb = (auth => ["md5","call_modules=files,winbind,nis","nullok"], account => ["md5","call_modules=files,ldap,nis","nullok"]); -SambaWinbind->AdjustPam(1); - -%pamdb = (auth => ["md5","nullok"], account => ["call_modules=winbind"]); -SambaWinbind->AdjustPam(0); - -%pamdb = (auth => ["md5","nullok"], account => ["call_modules=winbind"]); -SambaWinbind->AdjustPam(1); - -%pamdb = (auth => []); -SambaWinbind->AdjustPam(1); - - -## AdjustService() -%installed = ("samba-winbind" => 0); -print Dumper(SambaWinbind->AdjustService(0)); - -%installed = ("samba-winbind" => 0); -print Dumper(!SambaWinbind->AdjustService(1)); - -$service_adjust_return = 1; -%installed = ("samba-winbind" => 1); -print Dumper(SambaWinbind->AdjustService(1)); - -$service_adjust_return = 0; -%installed = ("samba-winbind" => 1); -print Dumper(!SambaWinbind->AdjustService(0)); - - -## StartStopNow() -%installed = ("samba-winbind" => 0); -print Dumper(SambaWinbind->StartStopNow(0)); - -%installed = ("samba-winbind" => 0); -print Dumper(!SambaWinbind->StartStopNow(1)); - -%installed = ("samba-winbind" => 1); -$service_status = 1; -$service_start_return = 1; -print Dumper(SambaWinbind->StartStopNow(1)); -$service_start_return = 0; -print Dumper(!SambaWinbind->StartStopNow(1)); - -%installed = ("samba-winbind" => 1); -$service_status = 0; -$service_restart_return = 1; -print Dumper(SambaWinbind->StartStopNow(1)); -$service_restart_return = 0; -print Dumper(!SambaWinbind->StartStopNow(1)); - -%installed = ("samba-winbind" => 1); -$service_status = 0; -$service_stop_return = 1; -print Dumper(SambaWinbind->StartStopNow(0)); -$service_stop_return = 0; -print Dumper(!SambaWinbind->StartStopNow(0)); - -%installed = ("samba-winbind" => 1); -$service_status = 1; -print Dumper(SambaWinbind->StartStopNow(0));
