1*4882a593Smuzhiyun# 2*4882a593Smuzhiyun# SPDX-License-Identifier: MIT 3*4882a593Smuzhiyun# 4*4882a593Smuzhiyun 5*4882a593Smuzhiyunimport os 6*4882a593Smuzhiyun 7*4882a593Smuzhiyunfrom oeqa.runtime.case import OERuntimeTestCase 8*4882a593Smuzhiyunfrom oeqa.core.decorator.depends import OETestDepends 9*4882a593Smuzhiyunfrom oeqa.runtime.decorator.package import OEHasPackage 10*4882a593Smuzhiyun 11*4882a593Smuzhiyunclass PerlTest(OERuntimeTestCase): 12*4882a593Smuzhiyun @OETestDepends(['ssh.SSHTest.test_ssh']) 13*4882a593Smuzhiyun @OEHasPackage(['perl']) 14*4882a593Smuzhiyun def test_perl_works(self): 15*4882a593Smuzhiyun status, output = self.target.run("perl -e '$_=\"Uryyb, jbeyq\"; tr/a-zA-Z/n-za-mN-ZA-M/;print'") 16*4882a593Smuzhiyun self.assertEqual(status, 0) 17*4882a593Smuzhiyun self.assertEqual(output, "Hello, world") 18