Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-Test-CheckGitStatus for
openSUSE:Factory checked in at 2025-05-12 16:49:36
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Test-CheckGitStatus (Old)
and /work/SRC/openSUSE:Factory/.perl-Test-CheckGitStatus.new.30101 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Test-CheckGitStatus"
Mon May 12 16:49:36 2025 rev:2 rq:1276615 version:0.1.2
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-Test-CheckGitStatus/perl-Test-CheckGitStatus.changes
2025-04-20 20:06:19.644982252 +0200
+++
/work/SRC/openSUSE:Factory/.perl-Test-CheckGitStatus.new.30101/perl-Test-CheckGitStatus.changes
2025-05-12 16:53:43.820895752 +0200
@@ -1,0 +2,12 @@
+Sat Apr 19 05:35:49 UTC 2025 - Tina Müller <timueller+p...@suse.de>
+
+- updated to 0.1.2
+ see /usr/share/doc/packages/perl-Test-CheckGitStatus/Changes
+
+ 0.1.2 2025-04-19 00:13:52+02:00
+
+ - Fix calling git on Windows
+ - tests: Call the right perl
+ - tests: Support older git versions
+
+-------------------------------------------------------------------
Old:
----
Test-CheckGitStatus-v0.1.0.tar.gz
New:
----
Test-CheckGitStatus-v0.1.2.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Test-CheckGitStatus.spec ++++++
--- /var/tmp/diff_new_pack.MyRaGy/_old 2025-05-12 16:53:44.548926307 +0200
+++ /var/tmp/diff_new_pack.MyRaGy/_new 2025-05-12 16:53:44.552926475 +0200
@@ -18,7 +18,7 @@
%define cpan_name Test-CheckGitStatus
Name: perl-Test-CheckGitStatus
-Version: 0.1.0
+Version: 0.1.2
Release: 0
License: MIT
Summary: Check git status after every test
++++++ Test-CheckGitStatus-v0.1.0.tar.gz -> Test-CheckGitStatus-v0.1.2.tar.gz
++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-CheckGitStatus-v0.1.0/Changes
new/Test-CheckGitStatus-v0.1.2/Changes
--- old/Test-CheckGitStatus-v0.1.0/Changes 2025-04-12 16:32:22.000000000
+0200
+++ new/Test-CheckGitStatus-v0.1.2/Changes 2025-04-19 00:17:42.000000000
+0200
@@ -1,5 +1,11 @@
Revision history for Perl module Test::CheckGitStatus
+0.1.2 2025-04-19 00:13:52+02:00
+
+ - Fix calling git on Windows
+ - tests: Call the right perl
+ - tests: Support older git versions
+
v0.1.0 2025-04-12 16:26:53+02:00
- First Release
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-CheckGitStatus-v0.1.0/META.json
new/Test-CheckGitStatus-v0.1.2/META.json
--- old/Test-CheckGitStatus-v0.1.0/META.json 2025-04-12 16:32:22.000000000
+0200
+++ new/Test-CheckGitStatus-v0.1.2/META.json 2025-04-19 00:17:42.000000000
+0200
@@ -50,7 +50,7 @@
"provides" : {
"Test::CheckGitStatus" : {
"file" : "lib/Test/CheckGitStatus.pm",
- "version" : "v0.1.0"
+ "version" : "v0.1.2"
}
},
"release_status" : "stable",
@@ -64,7 +64,7 @@
"web" : "https://github.com/perlpunk/perl-Test-CheckGitStatus";
}
},
- "version" : "v0.1.0",
+ "version" : "v0.1.2",
"x_generated_by_perl" : "v5.26.1",
"x_serialization_backend" : "Cpanel::JSON::XS version 4.37",
"x_spdx_expression" : "MIT"
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-CheckGitStatus-v0.1.0/META.yml
new/Test-CheckGitStatus-v0.1.2/META.yml
--- old/Test-CheckGitStatus-v0.1.0/META.yml 2025-04-12 16:32:22.000000000
+0200
+++ new/Test-CheckGitStatus-v0.1.2/META.yml 2025-04-19 00:17:42.000000000
+0200
@@ -22,7 +22,7 @@
provides:
Test::CheckGitStatus:
file: lib/Test/CheckGitStatus.pm
- version: v0.1.0
+ version: v0.1.2
requires:
Cwd: '0'
File::Which: '0'
@@ -33,7 +33,7 @@
resources:
bugtracker: https://github.com/perlpunk/perl-Test-CheckGitStatus/issues
repository: https://github.com/perlpunk/perl-Test-CheckGitStatus
-version: v0.1.0
+version: v0.1.2
x_generated_by_perl: v5.26.1
x_serialization_backend: 'YAML::Tiny version 1.74'
x_spdx_expression: MIT
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-CheckGitStatus-v0.1.0/Makefile.PL
new/Test-CheckGitStatus-v0.1.2/Makefile.PL
--- old/Test-CheckGitStatus-v0.1.0/Makefile.PL 2025-04-12 16:32:22.000000000
+0200
+++ new/Test-CheckGitStatus-v0.1.2/Makefile.PL 2025-04-19 00:17:42.000000000
+0200
@@ -31,7 +31,7 @@
"IPC::Open3" => 0,
"Test::More" => "0.98"
},
- "VERSION" => "v0.1.0",
+ "VERSION" => "v0.1.2",
"test" => {
"TESTS" => "t/*.t"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-CheckGitStatus-v0.1.0/README
new/Test-CheckGitStatus-v0.1.2/README
--- old/Test-CheckGitStatus-v0.1.0/README 2025-04-12 16:32:22.000000000
+0200
+++ new/Test-CheckGitStatus-v0.1.2/README 2025-04-19 00:17:42.000000000
+0200
@@ -91,6 +91,3 @@
Copyright (c) SUSE LLC, Tina Müller
- This library is free software and may be distributed under the same
- terms as perl itself.
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-CheckGitStatus-v0.1.0/dist.ini
new/Test-CheckGitStatus-v0.1.2/dist.ini
--- old/Test-CheckGitStatus-v0.1.0/dist.ini 2025-04-12 16:32:22.000000000
+0200
+++ new/Test-CheckGitStatus-v0.1.2/dist.ini 2025-04-19 00:17:42.000000000
+0200
@@ -5,7 +5,7 @@
copyright_year = 2025
main_module = lib/Test/CheckGitStatus.pm
-version = v0.1.0
+version = v0.1.2
[@Filter]
-bundle = @Basic
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Test-CheckGitStatus-v0.1.0/lib/Test/CheckGitStatus.pm
new/Test-CheckGitStatus-v0.1.2/lib/Test/CheckGitStatus.pm
--- old/Test-CheckGitStatus-v0.1.0/lib/Test/CheckGitStatus.pm 2025-04-12
16:32:22.000000000 +0200
+++ new/Test-CheckGitStatus-v0.1.2/lib/Test/CheckGitStatus.pm 2025-04-19
00:17:42.000000000 +0200
@@ -2,8 +2,9 @@
package Test::CheckGitStatus;
use strict;
use warnings;
+use Config;
-our $VERSION = 'v0.1.0'; # VERSION
+our $VERSION = 'v0.1.2'; # VERSION
my $CHECK_GIT_STATUS = $ENV{CHECK_GIT_STATUS};
@@ -22,7 +23,6 @@
if ($CHECK_GIT_STATUS) {
require Test::More;
- require File::Which;
require Cwd;
$cwd = Cwd::cwd();
}
@@ -37,7 +37,12 @@
sub _check_git {
require File::Which;
- return File::Which::which('git');
+ my $git = File::Which::which('git');
+ return unless $git;
+ if ($Config{osname} eq 'MSWin32') {
+ $git = qq{"$git"};
+ }
+ return $git;
}
sub _get_status {
@@ -45,12 +50,12 @@
chdir $cwd;
my $git = _check_git();
return unless $git;
- my $cmd = "$git rev-parse --git-dir";
+ my $cmd = qq{$git rev-parse --git-dir};
my $out = qx{$cmd};
return if $? != 0;
- $cmd = 'git status --porcelain=v1 2>&1';
+ $cmd = qq{$git status --porcelain=v1 2>&1};
my @lines = qx{$cmd};
- die "Problem running git:\n" . join '', @lines if $? != 0;
+ die "Problem running '$git':\n" . join '', @lines if $? != 0;
return @lines;
}
@@ -165,7 +170,4 @@
Copyright (c) SUSE LLC, Tina Müller
-This library is free software and may be distributed under the same terms
-as perl itself.
-
=cut
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-CheckGitStatus-v0.1.0/t/10.basic.t
new/Test-CheckGitStatus-v0.1.2/t/10.basic.t
--- old/Test-CheckGitStatus-v0.1.0/t/10.basic.t 2025-04-12 16:32:22.000000000
+0200
+++ new/Test-CheckGitStatus-v0.1.2/t/10.basic.t 2025-04-19 00:17:42.000000000
+0200
@@ -2,45 +2,55 @@
use strict;
use warnings;
use FindBin '$Bin';
+use Config;
use File::Temp;
+use File::Spec;
use Test::CheckGitStatus;
my $tmp = File::Temp->newdir("Test-CheckGitStatus-XXXX", TMPDIR => 1);
my $git = Test::CheckGitStatus::_check_git();
+diag "perl: $^X";
+diag "git: $git";
+diag "osname: $Config{osname}";
subtest 'git status' => sub {
plan skip_all => 'git not installed' unless $git;
# Don't let git use any personal settings
local $ENV{HOME};
- my $dir = "$tmp/repo";
- mkdir $dir;
- _write_file("$dir/file1");
-
- my $cmd = "$git -C $dir";
- note qx{$cmd init --quiet 2>&1};
- note qx{$cmd add . 2>&1};
- note qx{$cmd config user.email 'name\@example.org'};
- note qx{$cmd config user.name 'Name'};
- note qx{$cmd commit --quiet -m "test" 2>&1};
+ my $dir = File::Spec->catfile($tmp, "repo");
+ my $file1 = File::Spec->catfile($dir, "file1");
+ my $file2 = File::Spec->catfile($dir, "file2");
+ mkdir $dir or die $!;
+ _write_file($file1);
+
+ chdir $dir or die $!;
+ _cmd(qq{$git init --quiet 2>&1});
+ _cmd(qq{$git add . 2>&1});
+ _cmd(qq{$git config user.email 'name\@example.org'});
+ _cmd(qq{$git config user.name 'Name'});
+ _cmd(qq{$git commit --quiet -m "test" 2>&1});
local $ENV{CHECK_GIT_STATUS} = 1;
- chdir $dir;
- my $out = qx{perl -wE'use Test::CheckGitStatus;' 2>&1};
+ my $perl = $^X;
+ if ($Config{osname} eq 'MSWin32') {
+ $perl = qq{"$^X"};
+ }
+ my $out = qx{$perl -wE"use Test::CheckGitStatus;" 2>&1};
my $rc = $?;
is $rc, 0, "clean status exit code 0";
is $out, '', "clean status";
- _write_file("$dir/file2");
- $out = qx{perl -wE'use Test::CheckGitStatus;' 2>&1};
+ _write_file($file2);
+ $out = qx{$perl -wE"use Test::CheckGitStatus;" 2>&1};
$rc = $? >> 8;
is $rc, 1, "untracked file exit code";
like $out, qr{Error.*\?\? file2}s, "untracked file";
unlink "$dir/file2";
- _write_file("$dir/file1", "new");
- $out = qx{perl -wE'use Test::CheckGitStatus;' 2>&1};
+ _write_file($file1, "new");
+ $out = qx{$perl -wE"use Test::CheckGitStatus;" 2>&1};
$rc = $? >> 8;
is $rc, 1, "modified file exit code";
like $out, qr{Error.*M file1}s, "modified file";
@@ -54,6 +64,12 @@
close $fh;
}
+sub _cmd {
+ my ($cmd) = @_;
+ note qx{$cmd};
+ die "Command '$cmd' failed: $?" if $?;
+}
+
chdir $Bin;
done_testing;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-CheckGitStatus-v0.1.0/xt/03.spelling.t
new/Test-CheckGitStatus-v0.1.2/xt/03.spelling.t
--- old/Test-CheckGitStatus-v0.1.0/xt/03.spelling.t 2025-04-12
16:32:22.000000000 +0200
+++ new/Test-CheckGitStatus-v0.1.2/xt/03.spelling.t 2025-04-19
00:17:42.000000000 +0200
@@ -13,3 +13,4 @@
Müller
untracked
worktree
+LLC
