1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
import os
import infra.basetest
class TestPerlBase(infra.basetest.BRTest):
config = infra.basetest.BASIC_TOOLCHAIN_CONFIG + \
"""
BR2_TARGET_ROOTFS_CPIO=y
# BR2_TARGET_ROOTFS_TAR is not set
"""
def login(self):
cpio_file = os.path.join(self.builddir, "images", "rootfs.cpio")
self.emulator.boot(arch="armv7",
kernel="builtin",
options=["-initrd", cpio_file])
self.emulator.login()
def module_test(self, module, script="1"):
cmd = "perl -M{} -e '{}'".format(module, script)
_, exit_code = self.emulator.run(cmd)
self.assertEqual(exit_code, 0)
class TestPerl(TestPerlBase):
config = TestPerlBase.config + \
"""
BR2_PACKAGE_PERL=y
"""
def version_test(self):
cmd = "perl -v"
output, exit_code = self.emulator.run(cmd)
self.assertEqual(exit_code, 0)
self.assertIn("This is perl 5", output[1])
def core_modules_test(self):
self.module_test("Cwd")
self.module_test("Data::Dumper")
self.module_test("Devel::Peek")
self.module_test("Digest::MD5")
self.module_test("Digest::SHA")
self.module_test("Encode")
self.module_test("Fcntl")
self.module_test("File::Glob")
self.module_test("Hash::Util")
self.module_test("I18N::Langinfo")
self.module_test("IO::Handle")
self.module_test("IPC::SysV")
self.module_test("List::Util")
self.module_test("MIME::Base64")
self.module_test("POSIX")
self.module_test("Socket")
self.module_test("Storable")
self.module_test("Sys::Hostname")
self.module_test("Sys::Syslog")
self.module_test("Time::HiRes")
self.module_test("Time::Piece")
self.module_test("Unicode::Collate")
self.module_test("Unicode::Normalize")
def test_run(self):
self.login()
self.version_test()
self.core_modules_test()
|
