Added same new test as the one in perl.