1from tests.package.test_perl import TestPerlBase
2import os
3
4
5class TestPerlDBDmysql(TestPerlBase):
6    """
7    package:
8        DBD-mysql   XS
9    direct dependencies:
10        DBI   XS
11    """
12
13    config = TestPerlBase.config + \
14        """
15        BR2_PACKAGE_PERL=y
16        BR2_PACKAGE_PERL_DBD_MYSQL=y
17        BR2_TARGET_ROOTFS_EXT2=y
18        BR2_TARGET_ROOTFS_EXT2_SIZE="120M"
19        """
20
21    def login(self):
22        ext2_file = os.path.join(self.builddir, "images", "rootfs.ext2")
23        self.emulator.boot(arch="armv5",
24                           kernel="builtin",
25                           options=["-drive", "file=%s,if=scsi,format=raw" % ext2_file],
26                           kernel_cmdline=["rootwait", "root=/dev/sda"])
27        self.emulator.login()
28
29    def test_run(self):
30        self.login()
31        self.module_test("DBI")
32        self.module_test("DBD::mysql")
33