| Tes :: Kelas Tes :: Kelas adalah modul Perl yang memungkinkan Anda membuat kelas tes dengan mudah dalam gaya XUnit / Junit. |
Unduh sekarang |
Tes :: Kelas Peringkat & Ringkasan
- Lisensi:
- Perl Artistic License
- Nama Penerbit:
- Adrian Howard
- Situs web penerbit:
- http://search.cpan.org/~adie/Test-Block-0.11/lib/Test/Block.pm
Tes :: Kelas Tag
Tes :: Kelas Keterangan
Tes :: kelas adalah modul Perl yang memungkinkan Anda untuk dengan mudah membuat kelas tes dalam gaya XUnit / Junit. Tes :: kelas adalah modul Perl yang memungkinkan Anda untuk dengan mudah membuat kelas tes dalam paket XUnit / Junit.Synopsis Contoh :: Tes; Gunakan basis QW (Tes :: kelas); Gunakan tes :: lebih; # Metode pengaturan dijalankan sebelum setiap metode pengujian. sub make_fixture: test (setup) {$ array saya = ; shift -> {test_array} = $ array; }; # Metode pengujian yang menjalankan 1 uji sub test_push: test {$ array saya = shift -> {test_array}; push @ $ array, 3; is_deeply ($ array, , 'push bekerja'); }; # Metode pengujian yang menjalankan 4 tes sub test_pop: Uji (4) {$ array saya = shift -> {test_array}; adalah (pop @ $ array, 2, 'pop = 2'); adalah (pop @ $ array, 1, 'pop = 1'); is_deeply ($ array, [], 'array kosong'); adalah (pop @ $ array, undef, 'pop = undef'); }; # Metode teardown dijalankan setelah setiap metode pengujian. Sub Teardown: Uji (Teardown) {$ array = shift -> {test_array}; diag ("array = (@ $ array) setelah tes (s)"); }; nanti di file .t terdekat #! / usr / bin / perl Gunakan contoh :: tes; # Jalankan semua metode pengujian dalam contoh :: uji tes :: kelas-> runtests; output: 1..5 OK 1 - POP = 2 OK 2 - POP = 1 OK 3 - array kosong 4 - pop = UNDEF # = () setelah tes ok 5 - push berfungsi # array = (12 3) setelah tes persyaratan: · Perl.
Tes :: Kelas Perangkat Lunak Terkait