Tes :: Mockclass. Tes :: Mockclass adalah modul Perl untuk menyediakan kelas mock dan objek tiruan untuk pengujian.
Unduh sekarang

Tes :: Mockclass. Peringkat & Ringkasan

Tes :: Mockclass. Tag

modul perl kelas. mengejek Objek mock Kelas Mock.

Tes :: Mockclass. Keterangan

Tes :: mockclass adalah modul Perl untuk menyediakan kelas mock dan objek mock untuk pengujian. Tes :: mockclass adalah modul Perl untuk menyediakan kelas mock dan objek mock untuk menguji # Buat objek mockclass untuk menangani kelas tertentu $ mockclass = Test :: mockclass-> baru ('classtomock'); # Tentukan untuk mewarisi dari kelas nyata, atau kelas mengejek: $ mockclass-> pewarisan ('io :: socket'); # Buat konstruktor untuk kelas, juga dapat menggunakan 'addmethod' untuk lebih banyak kontrol $ mockclass-> defaultconstructor (% classwidedefaults); # Tambahkan metode: $ mockclass-> addMethod ('Metodname', $ coderef); # Tambahkan metode yang lebih sederhana, dan tentukan nilai pengembalian yang akan mengembalikan secara otomatis $ mockclass-> setreturnValues ('MethodName2', 'selalu', 3); # Buat instance dari kelas mengejek: $ mockobject saya = $ mockclass-> create (% instanchata); # Tetapkan pesanan panggilan yang diinginkan untuk metode: $ mockclass-> setcallorder ('Methodname2', 'Metodname', 'Methodname'); # Jalankan tes menggunakan kelas Mock di tempat lain: #: di kelas untuk menguji: sub objekfactory {return classtomock-> baru; } #: dalam kode tes Anda: menegaskan ($ testobj-> objekfactory-> ISA ("classtomock")); # Dapatkan ID objek untuk sisa metode: $ ObjectID = "$ mockObject"; #or $ ObjectID = $ mockclass-> getnextobjectid (); # Verifikasi bahwa metode tersebut dipanggil dalam urutan yang benar: jika ($ mockclass-> verifycallorder ($ ObjectID)) {# do sesuatu} # Dapatkan pesanan yang disebut metode: @calls = $ mockclass-> getcallorder ($ ObjectID); # Dapatkan daftar argumen yang dilewati per panggilan: @arglist saya = $ mockclass-> getargumentlist ($ ObjectID, 'Metodname', $ Callposition); # Dapatkan daftar akses yang dilakukan ke atribut tertentu (hashkey dalam $ mockobject) @accesses = $ mockclass-> getAttributEaccess ($ ObjectID, 'Atribut'); Persyaratan: · Perl.

Tes :: Mockclass. Perangkat Lunak Terkait