اختبار :: بدون قم بتشغيل التعليمات البرمجية أثناء إخفاء مسارات المكتبة أو وحدات محددة
التحميل الان

اختبار :: بدون الترتيب والملخص

اختبار :: بدون العلامات

الوحدة النمطية بيرل بيرل نصوص اختبار اختبار النصوص

اختبار :: بدون وصف

قم بتشغيل الرمز أثناء إخفاء مسارات مكتبة أو وحدات محددة اختبار :: بدون وحدة تحرير بيرل التي تجعل من السهل إجراء البرامج النصية لاختبار استبعاد وحدات و / أو أدلة محددة من مسار البحث في بيرل أثناء تنفيذ كتل Code.developer كتب هذا الأمر بعد الحاجة إلى كتابة اختراق قبيح إلى حد ما وحدة مختلفة CPAN، من أجل اختبار التعليمات البرمجية التي من شأنها محاولة تحميل ضغط :: ZLIB، ولكن اللازمة لاختبار مسارات المنطق التي تنفذ فقط عند الضغط غير متوفر. هذه الوحدة ليست للاختبار ما إذا كانت الأحمال التعليمات البرمجية وتجميعها بشكل صحيح؛ راجع وظيفة الاستخدام من الاختبار :: المزيد من أجل ذلك. تعمل الوحدة النمطية عن طريق إنشاء نطاق معجمي يتم فيه توطين كل من CONCENTINCE و INC، وتنفيذ كتلة معينة داخل هذا النطاق. يتم تحديد الوحدات النمطية (وربما directors) مخفية في هذا الوقت. تتم إزالة الدلائل التي يتم إعطاءها على الفور من Einc. يتم التعامل مع الوحدات النمطامات عن طريق الروتين الفرعي المدرجة في رأس @ inc.consersely، يمكن استخدام بناء الجملة لتطلب حدوث حدوث وحدات محددة، وإلقاء استثناء عن طريق الموت إذا كان أي مورد طلب غير متوفر، أو إضافة مسارات إضافية مؤقتا إلى inc. في مثل هذه الحالة، لن يتم تشغيل أي من التعليمات البرمجية في الكتلة المقدمة قبل الإبلاغ عن الموارد المفقودة. يمكن للمتصل أيضا توفير المعلمات المراد إقرارها إلى كتلة التعليمات البرمجية عند استدعاؤها. هذا لا لزوم له بالنسبة للكتل المضمنة المحددة، ولكن في الحالات التي تكون فيها حجة الكتلة عبارة عن عدد مرجعي للرمز يتم إعادة استخدامها، يمكن أن يكون هذا مفيدا. اختبار استخدام :: بدون؛ تشغيل {eval "تتطلب RPC :: XML :: عميل"؛ $ عميل = RPC :: XML :: Client-> جديد ()؛ موافق (! $ Client-> ضغط ()، "العميل ليس لديه دعم ضغط")؛ } بدون "ضغط :: ZLIB"؛ # تشغيل كتلة مع المعلمات تشغيل {my args = @؛ eval "تتطلب RPC :: XML :: Server"؛ $ server = rpc :: xml :: server-> جديد (_)؛ هو ($ server-> المنفذ، $ args {port}، "منفذ تعيين بشكل صحيح")؛ هل ($ Server-> المسار، $ Args {path}، "المسار تعيين بشكل صحيح")؛ # إلخ.} بدون "ضغط :: ZLIB"، "Net :: خادم"، Params Port => 9000، PATH => '/ RPC'؛ متطلبات: perl.

اختبار :: بدون برامج ذات صلة