Script to recreate Test::Mock testing failure

recreate-test-mock-failure

#!/bin/bash

set -e -x

mkdir build-root
cd build-root

git clone https://github.com/rakudo/rakudo.git
git clone https://github.com/ugexe/zef.git

cd rakudo
perl Configure.pl --backends=moar --gen-nqp --gen-moar \
     && make && make test && make install
RAKU_ROOT=`/bin/pwd`
PATH=$RAKU_ROOT/install/share/perl6/site/bin:$RAKU_ROOT/install/bin:$PATH
RAKU=$RAKU_ROOT/install/bin/rakudo-m
cd ..

cd zef
$RAKU -Ilib bin/zef install .
zef update
cd ..

zef install Test::Mock

testing failure

+ zef install Test::Mock
===> Searching for: Test::Mock
===> Searching for missing dependencies: OO::Monitors
===> Testing: OO::Monitors:ver<1.1.1>
===> Testing [OK] for OO::Monitors:ver<1.1.1>
===> Testing: Test::Mock:ver<1.5>
[Test::Mock] # Failed test 'called lol 4000 times'
[Test::Mock] # at <redacted>/.zef/store/test-mock.git/1130427f4d9f3866fa39e113251bb142d7fa5cc8/lib/Test/Mock.pm6 (Test::Mock) line 34
[Test::Mock] # expected: '4000'
[Test::Mock] #      got: '3996'
[Test::Mock] # You failed 1 test of 1
===> Testing [FAIL]: Test::Mock:ver<1.5>
Aborting due to test failure: Test::Mock:ver<1.5> (use --force-test to override)

testing failure 2

# Tested after diamond relation precomp fix, but I've seen this failure before as well

+ zef install Test::Mock
===> Searching for: Test::Mock
===> Searching for missing dependencies: OO::Monitors
===> Testing: OO::Monitors:ver<1.1.1>
===> Testing [OK] for OO::Monitors:ver<1.1.1>
===> Testing: Test::Mock:ver<1.5>
[Test::Mock] double free or corruption (!prev)
===> Testing [FAIL]: Test::Mock:ver<1.5>
Aborting due to test failure: Test::Mock:ver<1.5> (use --force-test to override)