1c342db35SBrad Bishop#
2*92b42cb3SPatrick Williams# Copyright OpenEmbedded Contributors
3*92b42cb3SPatrick Williams#
4c342db35SBrad Bishop# SPDX-License-Identifier: MIT
5c342db35SBrad Bishop#
6c342db35SBrad Bishop
7eb8dc403SDave Cobbleyimport os
8eb8dc403SDave Cobbley
9eb8dc403SDave Cobbleyfrom oeqa.runtime.case import OERuntimeTestCase
1099467dabSAndrew Geisslerfrom oeqa.core.decorator.depends import OETestDepends
11eb8dc403SDave Cobbleyfrom oeqa.runtime.decorator.package import OEHasPackage
12eb8dc403SDave Cobbley
13eb8dc403SDave Cobbleyclass PerlTest(OERuntimeTestCase):
1499467dabSAndrew Geissler    @OETestDepends(['ssh.SSHTest.test_ssh'])
151a4b7ee2SBrad Bishop    @OEHasPackage(['perl'])
16eb8dc403SDave Cobbley    def test_perl_works(self):
171a4b7ee2SBrad Bishop        status, output = self.target.run("perl -e '$_=\"Uryyb, jbeyq\"; tr/a-zA-Z/n-za-mN-ZA-M/;print'")
181a4b7ee2SBrad Bishop        self.assertEqual(status, 0)
191a4b7ee2SBrad Bishop        self.assertEqual(output, "Hello, world")
20