Bump to perl 5.26.0 42/138042/1
authorDongHun Kwak <dh0128.kwak@samsung.com>
Tue, 11 Jul 2017 02:03:53 +0000 (11:03 +0900)
committerDongHun Kwak <dh0128.kwak@samsung.com>
Tue, 11 Jul 2017 02:03:53 +0000 (11:03 +0900)
[Model] All
[BinType] AP
[Customer] OPEN

[Issue#] N/A
[Request] N/A
[Occurrence Version] N/A

[Problem] open source version upgrade
[Cause & Measure] open source version upgrade
[Checking Method] N/A

[Team] Open Source Management and Setting Part
[Developer] dh0128.kwak
[Solution company] Samsung
[Change Type] N/A

Change-Id: Ibf773b654bb83ac62a4bf8c6016c49834931c8f5
Signed-off-by: DongHun Kwak <dh0128.kwak@samsung.com>
.gbs.conf [deleted file]
packaging/perl.spec
run_test.sh [new file with mode: 0755]
t/TEST

diff --git a/.gbs.conf b/.gbs.conf
deleted file mode 100644 (file)
index 2877865..0000000
--- a/.gbs.conf
+++ /dev/null
@@ -1,3 +0,0 @@
-[general]
-upstream_branch = upstream/master
-upstream_tag = v${upstreamversion}
index 97291ea..e0ccfc2 100644 (file)
@@ -1,8 +1,12 @@
+%if "%{run_tests}" == "1"
+       %define check %%check
+%endif
+
 Name:           perl
 Summary:        The Perl interpreter
 License:        Artistic-1.0 or GPL-2.0+
 Group:          Platform Development/Perl
-Version:        5.20.0
+Version:        5.26.0
 Release:        0
 Url:            http://www.perl.org/
 Source:         perl-%{version}.tar.bz2
@@ -16,6 +20,11 @@ BuildRequires:  gdbm-devel
 BuildRequires:  bzip2-devel
 BuildRequires:  ncurses-devel
 BuildRequires:  zlib-devel
+
+%if "%{run_tests}" == "1"
+BuildRequires:  tizen-locale
+%endif
+
 #
 Provides:       /bin/perl
 Provides:       perl-500
@@ -121,7 +130,7 @@ chmod 755 ./configure.gnu
 cp -p libperl.so savelibperl.so
 cp -p lib/Config.pm saveConfig.pm
 cp -p lib/Config_heavy.pl saveConfig_heavy.pl
-%__make clean > /dev/null
+#%__make clean > /dev/null
 %__make clobber
 rm -rf lib
 mv savelib lib
@@ -241,6 +250,12 @@ cat << EOF > perl-base-filelist
 %{_libdir}/perl5/%{version}/*-linux-thread-multi*/re.pm
 EOF
 
+%check
+rm -f /tmp/%{name}_test
+chmod +x ./run_test.sh
+sh -c "%{__make} check || exit 0"
+./run_test.sh %{name} %{version}
+
 %files -f perl-base-filelist
 %manifest %{name}.manifest
 %defattr(-,root,root)
diff --git a/run_test.sh b/run_test.sh
new file mode 100755 (executable)
index 0000000..4257d1e
--- /dev/null
@@ -0,0 +1,57 @@
+#!/bin/bash
+
+PACKAGE_NAME=$1
+PACKAGE_VERSION=$2
+
+TEST_LOG="/tmp/${PACKAGE_NAME}_test"
+export TEST_LOG
+
+# Color
+Color_Off='\e[0m'       # Text Reset
+
+# Regular Colors
+Red='\e[0;31m'          # Red
+Green='\e[0;32m'        # Green
+Cyan='\e[0;36m'         # Cyank
+
+# Bold
+BWhite='\e[1;37m'       # White
+
+result_check() {
+    test_case=$1
+    if [ $? -eq 0 ]
+    then
+        echo -e "${Green}PASS${Color_Off}: $test_case"
+        echo "TEST: PASS: $test_case" >> ${TEST_LOG}
+    else
+        echo -e "${Red}FAIL${Color_Off}: $test_case"
+        echo -e "TEST: FAIL: $test_case" >> ${TEST_LOG}
+    fi
+}
+
+skip_test() {
+    test_case=$1
+    echo -e "${Cyan}SKIP${Color_Off}: $test_case"
+    echo "TEST: SKIP: $test_case" >> ${TEST_LOG}
+}
+
+TOTAL_CNT=`grep "TEST:" ${TEST_LOG} | wc -l`
+PASS_CNT=`grep "PASS:" ${TEST_LOG} | wc -l`
+FAIL_CNT=`grep "FAIL:" ${TEST_LOG} | wc -l`
+SKIP_CNT=`grep "SKIP:" ${TEST_LOG} | wc -l`
+
+
+br='==================='; br=$br$br$br$br;
+
+echo -e "${Green}$br ${Color_Off}"
+echo -e "${Green}Testsuite summary for ${PACKAGE_NAME} ${PACKAGE_VERSION}${Color_Off}"
+echo -e "${Green}$br ${Color_Off}"
+echo -e "#${BWhite} TOTAL: $TOTAL_CNT ${Color_Off}"
+echo -e "#${Green} PASS${Color_Off} : $PASS_CNT"
+echo -e "#${Red} FAIL${Color_Off} : $FAIL_CNT"
+echo -e "#${Cyan} SKIP${Color_Off} : $SKIP_CNT"
+echo -e "${Green}$br ${Color_Off}"
+
+rm -f ${TEST_LOG}
+exit 0
+
diff --git a/t/TEST b/t/TEST
index 6dc9587..cf136e3 100755 (executable)
--- a/t/TEST
+++ b/t/TEST
@@ -723,8 +723,11 @@ EOT
            }
        }
 
+       my $log_file = '/tmp/perl_test';
+       open( my $fh, '>>', $log_file); 
        if (defined $failure) {
            print "${te}$failure\n";
+           print $fh "TEST: FAIL: ${te}\n";
            $::bad_files = $::bad_files + 1;
            if ($test =~ /^base/ && ! defined &DynaLoader::boot_DynaLoader) {
                # Die if running under minitest (no DynaLoader).  Otherwise
@@ -749,13 +752,16 @@ EOT
                    $elapsed .= sprintf(" %5.0f ms", $_) for @endtimes;
                }
                print "${te}ok$elapsed\n";
+               print $fh "TEST: PASS: ${te}\n";
                $good_files = $good_files + 1;
            }
            else {
                print "${te}skipped\n";
+               print $fh "TEST: SKIP: ${te}\n";
                $tested_files = $tested_files - 1;
            }
        }
+       close $fh;
     } # while tests
 
     if ($::bad_files == 0) {