āĻāĻāĻŋ āĻšāĻ˛ poe-gen-testsp āĻāĻŽāĻžāĻ¨ā§āĻĄ āĻ¯āĻž āĻāĻŽāĻžāĻĻā§āĻ° āĻāĻāĻžāĻ§āĻŋāĻ āĻŦāĻŋāĻ¨āĻžāĻŽā§āĻ˛ā§āĻ¯ā§āĻ° āĻ āĻ¨āĻ˛āĻžāĻāĻ¨ āĻāĻ¯āĻŧāĻžāĻ°ā§āĻāĻ¸ā§āĻā§āĻļāĻ¨ āĻ¯ā§āĻŽāĻ¨ āĻāĻŦā§āĻ¨ā§āĻā§ āĻ āĻ¨āĻ˛āĻžāĻāĻ¨, āĻĢā§āĻĄā§āĻ°āĻž āĻ āĻ¨āĻ˛āĻžāĻāĻ¨, āĻāĻāĻ¨ā§āĻĄā§āĻ āĻ āĻ¨āĻ˛āĻžāĻāĻ¨ āĻāĻŽā§āĻ˛ā§āĻāĻ° āĻŦāĻž MAC OS āĻ āĻ¨āĻ˛āĻžāĻāĻ¨ āĻāĻŽā§āĻ˛ā§āĻāĻ° āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻāĻ°ā§ OnWorks āĻĢā§āĻ°āĻŋ āĻšā§āĻ¸ā§āĻāĻŋāĻ āĻĒā§āĻ°āĻĻāĻžāĻ¨āĻāĻžāĻ°ā§āĻ¤ā§ āĻāĻžāĻ˛āĻžāĻ¨ā§ āĻ¯ā§āĻ¤ā§ āĻĒāĻžāĻ°ā§āĨ¤
āĻāĻžāĻ°ā§āĻ¯āĻā§āĻ°āĻŽ:
NAME āĻāĻ°
poe-gen-tests - āĻ¤ā§āĻ¤ā§āĻ¯āĻŧ āĻĒāĻā§āĻˇā§āĻ° āĻŽāĻĄāĻŋāĻāĻ˛āĻā§āĻ˛āĻŋāĻ° āĻāĻ¨ā§āĻ¯ āĻāĻĻāĻ°ā§āĻļ POE āĻĒāĻ°ā§āĻā§āĻˇāĻž āĻ¤ā§āĻ°āĻŋ āĻāĻ°ā§
āĻ¸āĻžāĻāĻ¨ā§āĻĒāĻŋāĻ¸āĻŋāĻ¸
poe-gen-tests --dirbase t/loops \
--āĻ˛ā§āĻĒ āĻā§āĻ˛āĻŋāĻŦ \
--āĻ˛ā§āĻĒ āĻā§āĻāĻŋāĻ \
--āĻ˛ā§āĻĒ āĻāĻā§āĻ¨ā§āĻ::āĻ˛āĻŋāĻŦ \
--loop POE::XS::Loop::Poll
āĻŦāĻ°ā§āĻŖāĻ¨āĻžāĻ
āĻāĻ āĻĒā§āĻ°ā§āĻā§āĻ°āĻžāĻŽ āĻāĻŦāĻ āĻāĻ° āĻ¸āĻžāĻĨā§ āĻĨāĻžāĻāĻž POE::Test::Loop::* āĻŽāĻĄāĻŋāĻāĻ˛āĻā§āĻ˛āĻŋ POE āĻāĻ° āĻĒāĻ°ā§āĻā§āĻˇāĻžāĻā§āĻ˛āĻŋ āĻ¤ā§āĻ°āĻŋ āĻāĻ°ā§
POE::āĻ˛ā§āĻĒ āĻ¸āĻžāĻŦāĻā§āĻ˛āĻžāĻ¸āĨ¤ āĻāĻ āĻĒāĻ°ā§āĻā§āĻˇāĻžāĻā§āĻ˛āĻŋ āĻ¨āĻŋāĻ°ā§āĻŦāĻŋāĻļā§āĻˇā§ āĻ āĻāĻŋāĻ¨ā§āĻ¨āĻāĻžāĻŦā§ āĻāĻžāĻ˛āĻžāĻ¨ā§āĻ° āĻāĻ¨ā§āĻ¯ āĻĄāĻŋāĻāĻžāĻāĻ¨ āĻāĻ°āĻž āĻšāĻ¯āĻŧā§āĻā§
āĻŦāĻ°ā§āĻ¤āĻŽāĻžāĻ¨ āĻāĻā§āĻ¨ā§āĻ āĻ˛ā§āĻĒāĨ¤ POE āĻāĻā§āĻ˛āĻŋāĻā§ āĻāĻā§āĻ¨ā§āĻ āĻ˛ā§āĻĒāĻā§āĻ˛āĻŋ āĻŦāĻžāĻ¨ā§āĻĄāĻŋāĻ˛āĻā§āĻ˛āĻŋ āĻĒāĻ°ā§āĻā§āĻˇāĻž āĻāĻ°āĻ¤ā§ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻāĻ°ā§:
POE::Loop::Gtk
POE::Loop::IO_Poll (--loop IO::Poll)
POE::āĻ˛ā§āĻĒ::āĻāĻžāĻāĻž
POE::āĻ˛ā§āĻĒ::āĻāĻā§āĻ¨ā§āĻ
POE::Loop::āĻ¨āĻŋāĻ°ā§āĻŦāĻžāĻāĻ¨ āĻāĻ°ā§āĻ¨
āĻ āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯ POE::āĻ˛ā§āĻĒ āĻŽāĻĄāĻŋāĻāĻ˛ā§āĻ° āĻŦāĻŋāĻāĻžāĻļāĻāĻžāĻ°ā§āĻ°āĻž āĻāĻ āĻĒā§āĻ¯āĻžāĻā§āĻāĻāĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻāĻ°ā§ 420-āĻāĻ° āĻŦā§āĻļāĻŋ āĻ¤ā§āĻ°āĻŋ āĻāĻ°āĻ¤ā§ āĻāĻ¤ā§āĻ¸āĻžāĻšāĻŋāĻ¤ āĻāĻ°āĻž āĻšāĻ¯āĻŧ
āĻ¤āĻžāĻĻā§āĻ° āĻ¨āĻŋāĻāĻ¸ā§āĻŦ āĻāĻžāĻā§āĻ° āĻāĻ¨ā§āĻ¯ āĻŦā§āĻ¯āĻžāĻĒāĻ āĻĒāĻ°ā§āĻā§āĻˇāĻžāĨ¤
, USAGE
poe-gen-tests āĻĄāĻŋāĻ°ā§āĻā§āĻāĻ°āĻŋāĻ° āĻ¨ā§āĻā§ āĻāĻ āĻŦāĻž āĻāĻāĻžāĻ§āĻŋāĻ āĻāĻā§āĻ¨ā§āĻ āĻ˛ā§āĻĒā§āĻ° āĻāĻ¨ā§āĻ¯ āĻĒāĻ°ā§āĻā§āĻˇāĻž āĻĢāĻžāĻāĻ˛ āĻ¤ā§āĻ°āĻŋ āĻāĻ°ā§
--dirbase-āĻ āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻ āĻāĻ°āĻž āĻšāĻ¯āĻŧā§āĻā§āĨ¤ āĻāĻĻāĻžāĻšāĻ°āĻŖ āĻ¸ā§āĻŦāĻ°ā§āĻĒ,
poe-gen-tests --dirbase t/loops --loop āĻ¨āĻŋāĻ°ā§āĻŦāĻžāĻāĻ¨ āĻāĻ°ā§āĻ¨
āĻ¨āĻŋāĻŽā§āĻ¨āĻ˛āĻŋāĻāĻŋāĻ¤ āĻĒāĻ°ā§āĻā§āĻˇāĻž āĻĢāĻžāĻāĻ˛ āĻ¤ā§āĻ°āĻŋ āĻāĻ°ā§:
t/loops/select/all_errors.t
t/loops/select/comp_tcp.t
t/loops/select/comp_tcp_concurrent.t
t/loops/select/connect_errors.t
t/loops/select/k_alarms.t
t/loops/select/k_aliases.t
t/loops/select/k_detach.t
t/loops/select/k_selects.t
t/loops/select/k_sig_child.t
t/loops/select/k_signals.t
t/loops/select/k_signals_rerun.t
t/loops/select/sbk_signal_init.t
t/loops/select/ses_nfa.t
t/loops/select/ses_session.t
t/loops/select/wheel_accept.t
t/loops/select/wheel_curses.t
t/loops/select/wheel_readline.t
t/loops/select/wheel_readwrite.t
t/loops/select/wheel_run.t
t/loops/select/wheel_sf_ipv6.t
t/loops/select/wheel_sf_tcp.t
t/loops/select/wheel_sf_udp.t
t/loops/select/wheel_sf_unix.t
t/loops/select/wheel_tail.t
--loop āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻāĻžāĻ°āĻāĻŋ āĻšāĻ¯āĻŧ āĻāĻāĻāĻŋ POE::Loop::... āĻā§āĻ˛āĻžāĻ¸ā§āĻ° āĻ¨āĻžāĻŽ āĻŦāĻž āĻāĻā§āĻ¨ā§āĻ āĻ˛ā§āĻĒ āĻā§āĻ˛āĻžāĻ¸ āĻ¯āĻž
POE::Loop::... āĻĒā§āĻ¯āĻžāĻā§āĻā§āĻ° āĻ¨āĻžāĻŽ āĻ¸āĻŽā§āĻĒā§āĻ°ā§āĻŖ āĻāĻ°āĻŦā§āĨ¤
poe-gen-tests --dirbase t/loops --loop āĻāĻā§āĻ¨ā§āĻ::Lib
poe-gen-tests --dirbase t/loops --loop POE::Loop::Event_Lib
poe-gen-tests-āĻāĻ° āĻŽāĻ§ā§āĻ¯ā§ āĻāĻāĻāĻŋ "=for poe_tests" āĻŦāĻž "=begin poe_tests" āĻŦāĻŋāĻāĻžāĻ āĻā§āĻāĻā§
POE::āĻ˛ā§āĻĒ āĻā§āĻ˛āĻžāĻ¸ āĻĒāĻ°ā§āĻā§āĻˇāĻž āĻāĻ°āĻž āĻšāĻā§āĻā§āĨ¤ āĻ¯āĻĻāĻŋ āĻ¸āĻāĻā§āĻāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻāĻ°āĻž āĻšāĻ¯āĻŧ, āĻāĻ āĻŦāĻŋāĻāĻžāĻā§ āĻāĻāĻāĻŋ āĻāĻāĻ āĻĢāĻžāĻāĻļāĻ¨ āĻ āĻ¨ā§āĻ¤āĻ°ā§āĻā§āĻā§āĻ¤ āĻāĻ°āĻž āĻāĻāĻŋāĻ¤,
āĻŦāĻžāĻĻ_āĻĒāĻ°ā§āĻā§āĻˇāĻž(), āĻ¯ā§ āĻā§āĻ¨ āĻĒā§āĻ°āĻĻāĻ¤ā§āĻ¤ āĻĒāĻ°ā§āĻā§āĻˇāĻž āĻāĻĄāĻŧāĻŋāĻ¯āĻŧā§ āĻ¯āĻžāĻāĻ¯āĻŧāĻž āĻāĻāĻŋāĻ¤ āĻāĻŋāĻ¨āĻž āĻ¤āĻž āĻ¨āĻŋāĻ°ā§āĻ§āĻžāĻ°āĻŖ āĻāĻ°ā§āĨ¤
āĻ āĻ¨ā§āĻā§āĻ°āĻš āĻāĻ°ā§ "=for" āĻāĻŦāĻ "=begin" āĻāĻ° āĻ¸āĻŋāĻ¨āĻā§āĻ¯āĻžāĻā§āĻ¸ā§āĻ° āĻāĻ¨ā§āĻ¯ perlpod āĻĻā§āĻā§āĻ¨āĨ¤ āĻāĻāĻžāĻĄāĻŧāĻžāĻ āĻāĻ˛ā§āĻ˛ā§āĻāĻ¯ā§āĻā§āĻ¯ āĻāĻ¨ā§āĻ¯ PODDITIES āĻĻā§āĻā§āĻ¨
POE::Test::Loop āĻāĻ° POD āĻ¸āĻžāĻĒā§āĻ°ā§āĻ āĻāĻŦāĻ āĻ¸ā§āĻā§āĻ¯āĻžāĻ¨ā§āĻĄāĻžāĻ°ā§āĻĄā§āĻ° āĻŽāĻ§ā§āĻ¯ā§ āĻĒāĻžāĻ°ā§āĻĨāĻā§āĻ¯āĨ¤
āĻŦāĻžāĻĻ_āĻĒāĻ°ā§āĻā§āĻˇāĻž() āĻāĻāĻāĻŋ āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻāĻžāĻ° āĻĻāĻŋāĻ¯āĻŧā§ āĻĄāĻžāĻāĻž āĻšāĻ¯āĻŧ, āĻĒāĻ°ā§āĻā§āĻˇāĻžāĻ° āĻŦā§āĻ¸ āĻ¨āĻžāĻŽ āĻ¯ā§āĻāĻŋ āĻ¸āĻŽā§āĻĒāĻžāĻĻāĻŋāĻ¤ āĻšāĻ¤ā§ āĻāĻ˛ā§āĻā§āĨ¤
āĻĒāĻ°ā§āĻā§āĻˇāĻž āĻāĻžāĻ˛āĻžāĻ¨ā§ āĻāĻāĻŋāĻ¤ āĻšāĻ˛ā§ āĻāĻāĻŋ āĻŽāĻŋāĻĨā§āĻ¯āĻž āĻĢā§āĻ°āĻ¤ āĻĻā§āĻ¯āĻŧ, āĻŦāĻž āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ°āĻāĻžāĻ°ā§āĻ° āĻāĻžāĻā§ āĻĒā§āĻ°āĻĻāĻ°ā§āĻļāĻŋāĻ¤ āĻšāĻŦā§ āĻāĻŽāĻ¨ āĻāĻāĻāĻŋ āĻŦāĻžāĻ°ā§āĻ¤āĻž
āĻā§āĻ¨ āĻĒāĻ°ā§āĻā§āĻˇāĻž āĻŦāĻžāĻĻ āĻĻā§āĻāĻ¯āĻŧāĻž āĻšāĻŦā§ āĻ¤āĻž āĻŦā§āĻ¯āĻžāĻā§āĻ¯āĻž āĻāĻ°āĻžāĨ¤ āĻāĻ āĻŦāĻžāĻ°ā§āĻ¤āĻžāĻāĻŋ āĻĒāĻ°ā§āĻā§āĻˇāĻžāĻ¯āĻŧ āĻ¸āĻ°āĻžāĻ¸āĻ°āĻŋ āĻĒāĻžāĻ¸ āĻāĻ°āĻž āĻšāĻ¯āĻŧā§āĻā§::āĻāĻ°ā§
āĻĒāĻ°āĻŋāĻāĻ˛ā§āĻĒāĻ¨āĻž() āĻ¸āĻžāĻĨā§ "skip_all"āĨ¤ āĻ¯ā§āĻā§āĻ¤āĻŋāĻāĻŋ āĻŽā§āĻ˛āĻ¤:
āĻ¯āĻĻāĻŋ (āĻāĻŽāĻžāĻ° $why = skip_tests("k_signals_rerun")) {
āĻĒāĻ°āĻŋāĻāĻ˛ā§āĻĒāĻ¨āĻž skip_all => $ āĻā§āĻ¨;
}
āĻŦāĻžāĻĻ_āĻĒāĻ°ā§āĻā§āĻˇāĻž() āĻāĻā§āĻ¨ā§āĻ āĻ˛ā§āĻĒ āĻĻā§āĻŦāĻžāĻ°āĻž āĻĒā§āĻ°āĻ¯āĻŧā§āĻāĻ¨ā§āĻ¯āĻŧ āĻā§āĻ¨ā§ āĻŽāĻĄāĻŋāĻāĻ˛ āĻ˛ā§āĻĄ āĻāĻ°āĻž āĻāĻāĻŋāĻ¤āĨ¤ āĻāĻĻāĻžāĻšāĻ°āĻŖ āĻ āĻ§āĻŋāĻāĻžāĻāĻļ āĻĻā§āĻā§āĻ¨
āĻ¨āĻŋāĻā§.
āĻāĻĻāĻžāĻšāĻ°āĻŖ āĻāĻŦāĻŋāĻ¤āĻž_āĻĒāĻ°ā§āĻā§āĻˇāĻž āĻĄāĻŋāĻ°ā§āĻā§āĻāĻŋāĻ
POE::Loop::āĻāĻā§āĻ¨ā§āĻ āĻĒāĻ°ā§āĻā§āĻˇāĻž āĻāĻ°ā§ āĻ¯ā§ āĻāĻā§āĻ¨ā§āĻ āĻŽāĻĄāĻŋāĻāĻ˛āĻāĻŋ āĻŦāĻŋāĻĻā§āĻ¯āĻŽāĻžāĻ¨ āĻāĻā§ āĻāĻŋāĻ¨āĻž āĻāĻŦāĻ āĻ˛ā§āĻĄ āĻāĻ°āĻž āĻ¯ā§āĻ¤ā§ āĻĒāĻžāĻ°ā§, āĻ¤āĻžāĻ°āĻĒāĻ° āĻāĻŋāĻ¨āĻž
āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻ āĻĒāĻ°ā§āĻā§āĻˇāĻž āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻ āĻ āĻĒāĻžāĻ°ā§āĻāĻŋāĻ āĻ¸āĻŋāĻ¸ā§āĻā§āĻŽā§āĻ° āĻ āĻ§ā§āĻ¨ā§ āĻāĻ˛āĻ¤ā§ āĻĒāĻžāĻ°ā§āĨ¤
= āĻāĻŦāĻŋāĻ¤āĻž_āĻĒāĻ°ā§āĻā§āĻˇāĻžāĻ° āĻāĻ¨ā§āĻ¯
āĻ¸āĻžāĻŦ āĻ¸ā§āĻāĻŋāĻĒ_āĻā§āĻ¸ā§āĻ {
"āĻāĻā§āĻ¨ā§āĻ āĻĒāĻ°ā§āĻā§āĻˇāĻžāĻ° āĻāĻ¨ā§āĻ¯ āĻāĻā§āĻ¨ā§āĻ āĻŽāĻĄāĻŋāĻāĻ˛ āĻĒā§āĻ°āĻ¯āĻŧā§āĻāĻ¨" āĻĢā§āĻ°āĻ¤ āĻĻāĻŋāĻ¨ āĻ¯āĻĻāĻŋ (
āĻāĻ°ā§āĻ¨ { eval "āĻāĻā§āĻ¨ā§āĻ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻāĻ°ā§āĻ¨"; $@ }
);
āĻāĻŽāĻžāĻ° $test_name = āĻļāĻŋāĻĢāĻ;
āĻ¯āĻĻāĻŋ ($test_name eq "k_signals_rerun" āĻāĻŦāĻ $^O eq "MSWin32") {
"$^O āĻ¤ā§ āĻāĻžāĻāĻž āĻĻāĻŋāĻ¯āĻŧā§ āĻāĻžāĻ˛āĻžāĻ¨ā§ āĻšāĻ˛ā§ āĻāĻ āĻĒāĻ°ā§āĻā§āĻˇāĻžāĻāĻŋ āĻĒāĻžāĻ°ā§āĻ˛āĻā§ āĻā§āĻ°ā§āĻ¯āĻžāĻļ āĻāĻ°ā§";
}
āĻ¯āĻĻāĻŋ ($test_name eq "wheel_readline" āĻāĻŦāĻ $^O eq "āĻĄāĻžāĻ°āĻāĻāĻ¨") {
āĻĢāĻŋāĻ°ā§ āĻāĻ¸ā§ "āĻāĻā§āĻ¨ā§āĻ āĻāĻāĻ āĻāĻžāĻ°āĻŖā§ āĻ¤āĻžāĻ° āĻ¨āĻŋāĻāĻ¸ā§āĻŦ āĻĻā§āĻāĻŋ āĻĒāĻ°ā§āĻā§āĻˇāĻž āĻāĻĄāĻŧāĻŋāĻ¯āĻŧā§ āĻ¯āĻžāĻ¯āĻŧ";
}
}
POE::Loop::Gtk DISPLAY āĻ¸ā§āĻ āĻāĻ°āĻž āĻāĻā§ āĻāĻŋāĻ¨āĻž āĻ¤āĻž āĻĒāĻ°ā§āĻā§āĻˇāĻž āĻāĻ°ā§, āĻ¯āĻž āĻŦā§āĻāĻžāĻ¯āĻŧ āĻ¯ā§ X āĻāĻ˛āĻā§āĨ¤ āĻāĻāĻž āĻ¤āĻžāĻ°āĻĒāĻ°
āĻāĻĄāĻŧāĻŋāĻ¯āĻŧā§ āĻ¯āĻžāĻāĻ¯āĻŧāĻžāĻ° āĻāĻā§ Gtk āĻāĻĒāĻ˛āĻŦā§āĻ§, āĻ˛ā§āĻĄāĻ¯ā§āĻā§āĻ¯ āĻāĻŦāĻ āĻ¨āĻŋāĻ°āĻžāĻĒāĻĻā§ āĻāĻ°āĻŽā§āĻāĻ¯ā§āĻā§āĻ¯ āĻāĻŋāĻ¨āĻž āĻ¤āĻž āĻĒāĻ°ā§āĻā§āĻˇāĻž āĻāĻ°ā§
āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻ āĻĒāĻ°ā§āĻā§āĻˇāĻžāĨ¤
= āĻāĻŦāĻŋāĻ¤āĻž_āĻĒāĻ°ā§āĻā§āĻˇāĻžāĻ° āĻāĻ¨ā§āĻ¯
āĻ¸āĻžāĻŦ āĻ¸ā§āĻāĻŋāĻĒ_āĻā§āĻ¸ā§āĻ {
āĻāĻŽāĻžāĻ° $test_name = āĻļāĻŋāĻĢāĻ;
āĻĢā§āĻ°āĻ¤ āĻĻāĻŋāĻ¨ "Gtk āĻāĻ° āĻāĻāĻāĻŋ āĻĄāĻŋāĻ¸āĻĒā§āĻ˛ā§ āĻĒā§āĻ°āĻ¯āĻŧā§āĻāĻ¨ (āĻāĻ āĻāĻāĻāĻŋ āĻ¸ā§āĻ āĻāĻ°ā§āĻ¨, āĻ āĻŋāĻ āĻāĻā§?)" āĻ¯āĻĻāĻŋ āĻ¨āĻž (
āĻ¸āĻāĻā§āĻāĻžāĻ¯āĻŧāĻŋāĻ¤ $ENV{DISPLAY} āĻāĻŦāĻ āĻĻā§āĻ°ā§āĻā§āĻ¯ $ENV{DISPLAY}
);
{ eval "use Gtk" āĻāĻ°āĻ˛ā§ "Gtk āĻĒāĻ°ā§āĻā§āĻˇāĻžāĻ° āĻāĻ¨ā§āĻ¯ Gtk āĻŽāĻĄāĻŋāĻāĻ˛ āĻĒā§āĻ°āĻ¯āĻŧā§āĻāĻ¨" āĻĢā§āĻ°āĻ¤ āĻĻāĻŋāĻ¨; $@ };
"Gtk init āĻŦā§āĻ¯āĻ°ā§āĻĨ āĻšāĻ¯āĻŧā§āĻā§āĨ¤ āĻĄāĻŋāĻ¸āĻĒā§āĻ˛ā§ āĻāĻŋ āĻŦā§āĻ§?" āĻ¯āĻĻāĻŋ āĻ¨āĻž āĻ¸āĻāĻā§āĻāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻāĻ°āĻž āĻšāĻ¯āĻŧ Gtk->init_check;
āĻ¯āĻĻāĻŋ ($test_name eq "z_rt39872_sigchld_stop") {
"Gdk āĻā§āĻ°ā§āĻ¯āĻžāĻļ" āĻĢā§āĻ°āĻ¤ āĻĻāĻŋāĻ¨;
}
āĻāĻ¸āĻ¤ā§;
}
POE::Loop::IO_Poll IO::āĻĒā§āĻ˛ āĻ¯āĻžāĻāĻžāĻ āĻāĻ°āĻžāĻ° āĻāĻā§ āĻ¸āĻŋāĻ¸ā§āĻā§āĻŽā§āĻ° āĻ¸āĻžāĻŽāĻā§āĻāĻ¸ā§āĻ¯ā§āĻ° āĻāĻ¨ā§āĻ¯ āĻĒāĻ°ā§āĻā§āĻˇāĻž āĻāĻ°ā§
āĻāĻĒāĻ˛āĻŦā§āĻ§ āĻāĻŦāĻ āĻ˛ā§āĻĄāĻ¯ā§āĻā§āĻ¯āĨ¤
= āĻāĻŦāĻŋāĻ¤āĻž_āĻĒāĻ°ā§āĻā§āĻˇāĻžāĻ° āĻāĻ¨ā§āĻ¯
āĻ¸āĻžāĻŦ āĻ¸ā§āĻāĻŋāĻĒ_āĻā§āĻ¸ā§āĻ {
$^O eq "MSWin100" āĻšāĻ˛ā§ "IO::āĻĒā§āĻ˛ $^O" āĻāĻ° āĻ¸āĻžāĻĨā§ 32% āĻ¸āĻžāĻŽāĻā§āĻāĻ¸ā§āĻ¯āĻĒā§āĻ°ā§āĻŖ āĻ¨āĻ¯āĻŧ;
"IO::āĻĒā§āĻ˛ āĻĒāĻ°ā§āĻā§āĻˇāĻžāĻ° āĻāĻ¨ā§āĻ¯ IO::Poll āĻŽāĻĄāĻŋāĻāĻ˛ āĻĒā§āĻ°āĻ¯āĻŧā§āĻāĻ¨" āĻĢā§āĻ°āĻ¤ āĻĻāĻŋāĻ¨ āĻ¯āĻĻāĻŋ (
do { eval "use IO::Poll"; $@ }
);
}
POE::Loop::Select āĻāĻ° āĻā§āĻ¨ āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻ āĻĒā§āĻ°āĻ¯āĻŧā§āĻāĻ¨ā§āĻ¯āĻŧāĻ¤āĻž āĻ¨ā§āĻāĨ¤
= āĻāĻŦāĻŋāĻ¤āĻž_āĻĒāĻ°ā§āĻā§āĻˇāĻžāĻ° āĻāĻ¨ā§āĻ¯
āĻ¸āĻžāĻŦ āĻ¸ā§āĻāĻŋāĻĒ_āĻā§āĻ¸ā§āĻ { āĻĢā§āĻ°āĻ¤ }
POE::Loop::Tk āĻāĻāĻāĻŋ X āĻĄāĻŋāĻ¸āĻĒā§āĻ˛ā§ āĻĒā§āĻ°āĻ¯āĻŧā§āĻāĻ¨ (āĻāĻāĻ¨ā§āĻĄā§āĻ āĻāĻžāĻĄāĻŧāĻž)āĨ¤ āĻāĻžāĻāĻž āĻ¨āĻŋāĻ°āĻžāĻĒāĻĻ āĻ¨āĻ¯āĻŧ āĻāĻžāĻāĻāĻžāĻāĻžāĻŽāĻ (), āĻ¤āĻžāĻ āĻāĻĄāĻŧāĻŋāĻ¯āĻŧā§ āĻ¯āĻžāĻ¨
āĻĒāĻ°ā§āĻā§āĻˇāĻž āĻ¯ā§ āĻāĻžāĻāĻāĻžāĻāĻžāĻŽāĻ āĻĒā§āĻ°āĻ¯āĻŧā§āĻāĻ¨. āĻāĻŦāĻ āĻ āĻŦāĻļā§āĻˇā§, Tk āĻŽāĻĄāĻŋāĻāĻ˛ āĻāĻĒāĻ˛āĻŦā§āĻ§ āĻāĻŋāĻ¨āĻž āĻ¤āĻž āĻĒāĻ°ā§āĻā§āĻˇāĻž āĻāĻ°ā§āĻ¨,
āĻ˛ā§āĻĄāĻ¯ā§āĻā§āĻ¯, āĻāĻŦāĻ āĻāĻžāĻ˛āĻžāĻ¨ā§ āĻ¯āĻžāĻ¯āĻŧāĨ¤
= āĻāĻŦāĻŋāĻ¤āĻž_āĻĒāĻ°ā§āĻā§āĻˇāĻžāĻ° āĻāĻ¨ā§āĻ¯
āĻ¸āĻžāĻŦ āĻ¸ā§āĻāĻŋāĻĒ_āĻā§āĻ¸ā§āĻ {
āĻĢā§āĻ°āĻ¤ āĻĻāĻŋāĻ¨ "āĻāĻžāĻāĻžāĻ° āĻāĻāĻāĻŋ DISPLAY āĻĒā§āĻ°āĻ¯āĻŧā§āĻāĻ¨ (āĻāĻ āĻāĻāĻāĻŋ āĻ¸ā§āĻ āĻāĻ°ā§āĻ¨, āĻ āĻŋāĻ āĻāĻā§?)" āĻ¯āĻĻāĻŋ āĻ¨āĻž (
(āĻ¸āĻāĻā§āĻāĻžāĻ¯āĻŧāĻŋāĻ¤ $ENV{DISPLAY} āĻāĻŦāĻ āĻĻā§āĻ°ā§āĻā§āĻ¯ $ENV{DISPLAY}) āĻŦāĻž $^O eq "MSWin32"
);
āĻāĻŽāĻžāĻ° $test_name = āĻļāĻŋāĻĢāĻ;
āĻ¯āĻĻāĻŋ ($test_name eq "k_signals_rerun" āĻāĻŦāĻ $^O eq "MSWin32") {
"$^O āĻ¤ā§ āĻāĻžāĻāĻž āĻĻāĻŋāĻ¯āĻŧā§ āĻāĻžāĻ˛āĻžāĻ¨ā§ āĻšāĻ˛ā§ āĻāĻ āĻĒāĻ°ā§āĻā§āĻˇāĻžāĻāĻŋ āĻĒāĻžāĻ°ā§āĻ˛āĻā§ āĻā§āĻ°ā§āĻ¯āĻžāĻļ āĻāĻ°ā§";
}
āĻ¯āĻĻāĻŋ { eval " use Tk" āĻāĻ°ā§āĻ¨ āĻ¤āĻŦā§ "Tk āĻĒāĻ°ā§āĻā§āĻˇāĻžāĻ° āĻāĻ¨ā§āĻ¯ Tk āĻŽāĻĄāĻŋāĻāĻ˛ āĻĒā§āĻ°āĻ¯āĻŧā§āĻāĻ¨" āĻĢā§āĻ°āĻ¤ āĻĻāĻŋāĻ¨; $@ };
āĻāĻŽāĻžāĻ° $m = eval { Tk::MainWindow->new() };
āĻ¯āĻĻāĻŋ ($@) {
āĻāĻŽāĻžāĻ° $why = $@;
$why =~ s/ at .*//;
āĻĢā§āĻ°āĻ¤ āĻĻāĻŋāĻ¨ "āĻāĻžāĻāĻž āĻāĻ°āĻŽā§āĻ āĻāĻ°āĻž āĻ¯āĻžāĻ¯āĻŧāĻ¨āĻŋ: $why";
}
āĻāĻ¸āĻ¤ā§;
}
INSTALL āĻ¸ā§āĻā§āĻ°āĻŋāĻĒā§āĻ āĻ¸āĻāĻšāĻ¤āĻŋāĻāĻ°āĻŖ
POE::āĻ˛ā§āĻĒ āĻĒāĻ°ā§āĻā§āĻˇāĻžāĻā§āĻ˛āĻŋ POE āĻŦāĻŋāĻ¤āĻ°āĻŖā§āĻ° āĻ āĻāĻļ āĻšāĻŋāĻ¸āĻžāĻŦā§ āĻļā§āĻ°ā§ āĻšāĻ¯āĻŧā§āĻāĻŋāĻ˛ā§ˇ āĻ¸āĻŦ āĻ¸ā§āĻĒāĻžāĻ°āĻŋāĻļ
āĻāĻŦāĻ āĻ āĻ¨ā§āĻ¸āĻ°āĻŖ āĻāĻ°āĻž āĻāĻĻāĻžāĻšāĻ°āĻŖāĻā§āĻ˛āĻŋ ExtUtils::MakeMaker āĻāĻ° āĻŦāĻŋāĻ°ā§āĻĻā§āĻ§ā§ āĻ˛āĻŋāĻāĻŋāĻ¤ āĻāĻŦāĻ āĻĒāĻ°ā§āĻā§āĻˇāĻž āĻāĻ°āĻž āĻšāĻ¯āĻŧ āĻāĻžāĻ°āĻŖ āĻāĻāĻŋ
POE āĻāĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻāĻ°ā§āĨ¤ āĻāĻĒāĻ¨āĻžāĻ° āĻ¸ā§āĻŦāĻžāĻĻ āĻāĻŦāĻ āĻĒāĻāĻ¨ā§āĻĻ āĻ āĻ¨ā§āĻ¯āĻžāĻ¯āĻŧā§ āĻāĻ āĻ°ā§āĻ¸āĻŋāĻĒāĻŋ āĻ¸āĻŽāĻ¨ā§āĻŦāĻ¯āĻŧ āĻāĻ°ā§āĻ¨.
āĻāĻ˛ āĻāĻ°āĻž āĻšāĻā§āĻā§ āĻĻā§āĻ¯ āĻĒāĻ°ā§āĻā§āĻˇāĻž āĻāĻ¤ā§āĻĒāĻžāĻĻāĻ
āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ°āĻāĻžāĻ°ā§ āĻŦāĻž CPAN āĻļā§āĻ˛ "āĻŽā§āĻ āĻā§āĻ¸ā§āĻ" āĻāĻžāĻ˛āĻžāĻ¨ā§āĻ° āĻāĻā§ āĻĒāĻ°ā§āĻā§āĻˇāĻžāĻā§āĻ˛āĻŋ āĻ¤ā§āĻ°āĻŋ āĻāĻ°āĻ¤ā§ āĻšāĻŦā§āĨ¤ āĻāĻāĻāĻŋ āĻĒāĻ°āĻŋāĻĒāĻžāĻāĻŋ
āĻāĻāĻŋ āĻāĻ°āĻžāĻ° āĻāĻĒāĻžāĻ¯āĻŧ āĻšāĻ¤ā§ āĻĒāĻžāĻ°ā§ āĻāĻāĻāĻŋ āĻ¨āĻ¤ā§āĻ¨ āĻŽā§āĻāĻĢāĻžāĻāĻ˛ āĻ˛āĻā§āĻˇā§āĻ¯ āĻ¤ā§āĻ°āĻŋ āĻāĻ°āĻž āĻāĻŦāĻ āĻāĻāĻŋāĻā§ āĻ¨āĻŋāĻ°ā§āĻāĻ°āĻ¤āĻž āĻšāĻŋāĻ¸āĻžāĻŦā§ āĻ āĻ¨ā§āĻ¤āĻ°ā§āĻā§āĻā§āĻ¤ āĻāĻ°āĻž
"āĻĒāĻ°ā§āĻā§āĻˇāĻž āĻāĻ°āĻž" āĻāĻ° āĻāĻ¨ā§āĻ¯āĨ¤ POE āĻ¤āĻžāĻ° Makefile.PL āĻĨā§āĻā§ āĻ¸ā§āĻā§āĻ°āĻŋāĻĒā§āĻ āĻāĻ˛ āĻāĻ°ā§ āĻāĻāĻāĻŋ āĻ¸āĻšāĻ āĻĒāĻĻā§āĻ§āĻ¤āĻŋ āĻā§āĻ°āĻšāĻŖ āĻāĻ°ā§:
āĻĒāĻĻā§āĻ§āĻ¤āĻŋ(
$^X, "poe-gen-tests", "--dirbase", "t/30_loops",
"--āĻ˛ā§āĻĒ", "āĻāĻā§āĻ¨ā§āĻ", "--āĻ˛ā§āĻĒ", "Gtk", "--āĻ˛ā§āĻĒ", "IO::āĻĒā§āĻ˛",
"--āĻ˛ā§āĻĒ", "āĻ¨āĻŋāĻ°ā§āĻŦāĻžāĻāĻ¨", "--āĻ˛ā§āĻĒ", "āĻāĻžāĻāĻž",
) āĻāĻŦāĻ āĻŽā§āĻ¤ā§āĻ¯ā§ $!;
āĻĒā§āĻ°ā§āĻŦāĻŦāĻ°ā§āĻ¤ā§ āĻĒāĻĻā§āĻ§āĻ¤āĻŋāĻāĻŋ āĻāĻ¨āĻ¸ā§āĻāĻ˛ āĻāĻ°āĻžāĻ° āĻ¸āĻŽāĻ¯āĻŧ āĻĒāĻ°ā§āĻā§āĻˇāĻž āĻ¤ā§āĻ°āĻŋ āĻāĻ°ā§, āĻ¤āĻžāĻ āĻāĻāĻŋ āĻ āĻ¨ā§āĻ¤āĻ°ā§āĻā§āĻā§āĻ¤ āĻāĻ°āĻžāĻ° āĻĒā§āĻ°āĻ¯āĻŧā§āĻāĻ¨ āĻ¨ā§āĻ
āĻŽā§āĻ¯āĻžāĻ¨āĻŋāĻĢā§āĻ¸ā§āĻā§ āĻāĻ¤ā§āĻĒāĻ¨ā§āĻ¨ āĻĢāĻžāĻāĻ˛āĻā§āĻ˛āĻŋāĨ¤ āĻā§āĻ¸ā§āĻ āĻĄāĻŋāĻ°ā§āĻā§āĻāĻ°āĻŋāĻā§āĻ˛āĻŋ āĻĨā§āĻā§āĻ āĻŦāĻžāĻĻ āĻĻā§āĻāĻ¯āĻŧāĻž āĻāĻāĻŋāĻ¤
āĻŽā§āĻ¯āĻžāĻ¨āĻŋāĻĢā§āĻ¸ā§āĻāĨ¤ poe-gen-āĻĒāĻ°ā§āĻā§āĻˇāĻž āĻĒā§āĻ°āĻ¯āĻŧā§āĻāĻ¨ā§āĻ¯āĻŧ āĻĒāĻĨ āĻ¤ā§āĻ°āĻŋ āĻāĻ°āĻŦā§āĨ¤
"āĻĄāĻŋāĻ¸ā§āĻ āĻ¤ā§āĻ°āĻŋ āĻāĻ°ā§āĻ¨" āĻāĻ° āĻāĻā§ āĻĒāĻ°ā§āĻā§āĻˇāĻžāĻā§āĻ˛āĻŋ āĻ¤ā§āĻ°āĻŋ āĻāĻ°āĻžāĻ āĻ¸āĻŽā§āĻāĻŦāĨ¤ āĻŦāĻŋāĻ¤āĻ°āĻŖ āĻāĻ°
āĻŽā§āĻ¯āĻžāĻ¨āĻŋāĻĢā§āĻ¸ā§āĻ āĻāĻ āĻā§āĻˇā§āĻ¤ā§āĻ°ā§ āĻāĻ¤ā§āĻĒāĻ¨ā§āĻ¨ āĻĢāĻžāĻāĻ˛ āĻ āĻ¨ā§āĻ¤āĻ°ā§āĻā§āĻā§āĻ¤ āĻāĻ°āĻž āĻāĻŦāĻļā§āĻ¯āĻ.
āĻŦā§āĻļāĻŋāĻ°āĻāĻžāĻ āĻ˛ā§āĻā§āĻ° āĻ¤āĻžāĻĻā§āĻ° āĻ¸āĻāĻā§āĻ°āĻšāĻ¸ā§āĻĨāĻ˛ā§ āĻā§āĻ¨āĻžāĻ°ā§āĻ āĻāĻ°āĻž āĻĒāĻ°ā§āĻā§āĻˇāĻžāĻā§āĻ˛āĻŋ āĻ¯ā§āĻ āĻāĻ°āĻžāĻ° āĻĒā§āĻ°āĻ¯āĻŧā§āĻāĻ¨ āĻšāĻŦā§ āĻ¨āĻžāĨ¤
āĻāĻ˛āĻŽāĻžāĻ¨ āĻĻā§āĻ¯ āĻā§āĻ¸ā§āĻ
āĻĄāĻŋāĻĢāĻ˛ā§āĻāĻ°ā§āĻĒā§, ExtUtils::MakeMaker āĻŽā§āĻāĻĢāĻžāĻāĻ˛ āĻ¤ā§āĻ°āĻŋ āĻāĻ°ā§ āĻ¯āĻž āĻļā§āĻ§ā§āĻŽāĻžāĻ¤ā§āĻ° t/*.t āĻāĻ° āĻ¸āĻžāĻĨā§ āĻŽāĻŋāĻ˛ā§ āĻ¯āĻžāĻāĻ¯āĻŧāĻž āĻĒāĻ°ā§āĻā§āĻˇāĻž āĻāĻžāĻ˛āĻžāĻ¯āĻŧāĨ¤
āĻ¯āĻžāĻāĻšā§āĻ, āĻ˛ā§āĻāĻāĻĻā§āĻ° āĻ āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯ āĻĒāĻ°ā§āĻā§āĻˇāĻžāĻ° āĻ āĻŦāĻ¸ā§āĻĨāĻžāĻ¨ āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻ āĻāĻ°āĻžāĻ° āĻ āĻ¨ā§āĻŽāĻ¤āĻŋ āĻĻā§āĻāĻ¯āĻŧāĻž āĻšāĻ¯āĻŧāĨ¤ āĻ¨āĻŋāĻŽā§āĻ¨āĻ˛āĻŋāĻāĻŋāĻ¤ āĻĒāĻ°āĻžāĻŽāĻŋāĻ¤āĻŋ āĻ¯ā§āĻ āĻāĻ°ā§āĻ¨
āĻĨā§āĻā§ WriteMakefile() āĻ¯āĻžāĻ¤ā§ āĻāĻĒāĻ°ā§ āĻāĻ¤ā§āĻĒāĻ¨ā§āĻ¨ āĻĒāĻ°ā§āĻā§āĻˇāĻžāĻā§āĻ˛āĻŋ āĻāĻžāĻ°ā§āĻ¯āĻāĻ° āĻāĻ°āĻž āĻšāĻŦā§:
āĻĒāĻ°ā§āĻā§āĻˇāĻž => {
āĻĒāĻ°ā§āĻā§āĻˇāĻž => "t/*.tt/30_loops/*/*.t",
}
āĻĒāĻ°āĻŋāĻˇā§āĻāĻžāĻ° UP
āĻŽā§āĻāĻĢāĻžāĻāĻ˛āĻ¸ āĻŽā§āĻ¯āĻžāĻ¨āĻŋāĻĢā§āĻ¸ā§āĻā§ āĻāĻĒāĻ¸ā§āĻĨāĻŋāĻ¤ āĻ¨ā§āĻ āĻāĻŽāĻ¨ āĻĢāĻžāĻāĻ˛āĻā§āĻ˛āĻŋ āĻĒāĻ°āĻŋāĻˇā§āĻāĻžāĻ° āĻāĻ°āĻŦā§ āĻ¨āĻžā§ˇ āĻāĻāĻž āĻ āĻ¨ā§āĻ¤āĻ°ā§āĻā§āĻā§āĻ¤
āĻāĻ¨āĻ¸ā§āĻāĻ˛ āĻāĻ°āĻžāĻ° āĻ¸āĻŽāĻ¯āĻŧ āĻāĻ¤ā§āĻĒāĻ¨ā§āĻ¨ āĻĒāĻ°ā§āĻā§āĻˇāĻž. āĻāĻāĻŋ āĻāĻĒāĻ¨āĻžāĻā§ āĻŦāĻŋāĻ°āĻā§āĻ¤ āĻāĻ°āĻ˛ā§, āĻāĻĒāĻ¨āĻžāĻā§ āĻ¨āĻŋāĻ°ā§āĻĻā§āĻļāĻžāĻŦāĻ˛ā§ āĻ¯ā§āĻ āĻāĻ°āĻ¤ā§ āĻšāĻŦā§
"āĻā§āĻ˛āĻŋāĻ¨" āĻāĻŦāĻ "āĻĄāĻŋāĻ¸āĻā§āĻ˛āĻŋāĻ¨" āĻāĻžāĻ°ā§āĻā§āĻā§ āĻā§āĻ¨āĻžāĻ°ā§āĻ āĻāĻ°āĻž āĻĒāĻ°ā§āĻā§āĻˇāĻžāĻā§āĻ˛āĻŋ āĻ āĻ¨ā§āĻ¤āĻ°ā§āĻā§āĻā§āĻ¤ āĻāĻ°ā§āĻ¨āĨ¤
āĻĒāĻ°āĻŋāĻˇā§āĻāĻžāĻ° => {
āĻĢāĻžāĻāĻ˛ => "t/30_loops/*/* t/30_loops/*",
}
āĻāĻāĻŋ āĻ āĻ¨ā§āĻŽāĻžāĻ¨ āĻāĻ°ā§ āĻ¯ā§ "t/30_loops" āĻĄāĻŋāĻ°ā§āĻā§āĻāĻ°āĻŋāĻ¤ā§ āĻļā§āĻ§ā§āĻŽāĻžāĻ¤ā§āĻ° āĻ¤ā§āĻ°āĻŋ āĻāĻ°āĻž āĻĒāĻ°ā§āĻā§āĻˇāĻž āĻ°āĻ¯āĻŧā§āĻā§āĨ¤ āĻāĻāĻž āĻ¸ā§āĻĒāĻžāĻ°āĻŋāĻļ āĻāĻ°āĻž āĻšāĻ¯āĻŧ
āĻ¯ā§ āĻā§āĻĒāĻ¨ā§āĻ¨ āĻāĻŦāĻ āĻšā§āĻ¯āĻžāĻ¨ā§āĻĄ-āĻā§āĻĄā§āĻĄ āĻĒāĻ°ā§āĻā§āĻˇāĻž āĻāĻāĻ āĻĄāĻŋāĻ°ā§āĻā§āĻāĻ°āĻŋāĻ¤ā§ āĻ¸āĻšāĻžāĻŦāĻ¸ā§āĻĨāĻžāĻ¨ āĻāĻ°ā§ āĻ¨āĻžāĨ¤
āĻāĻāĻž āĻ¤āĻžāĻĻā§āĻ° āĻĒāĻŋāĻ¤āĻžāĻŽāĻžāĻ¤āĻžāĻ° āĻāĻā§ āĻāĻā§āĻ° āĻĄāĻŋāĻ°ā§āĻā§āĻāĻ°āĻŋ āĻāĻŦāĻ āĻĢāĻžāĻāĻ˛ āĻŽā§āĻā§ āĻĢā§āĻ˛āĻž āĻāĻāĻāĻŋ āĻāĻžāĻ˛ āĻ§āĻžāĻ°āĻŖāĻž āĻŽāĻ¤ āĻŽāĻ¨ā§ āĻšāĻā§āĻā§.
āĻā§āĻāĻĻāĻ¨ āĻ¨ā§āĻāĻāĻ¯āĻŧāĻžāĻ°ā§āĻ āĻā§āĻ¸ā§āĻ
āĻāĻŋāĻā§ āĻā§āĻĒāĻ¨ā§āĻ¨ āĻĒāĻ°ā§āĻā§āĻˇāĻžāĻ° āĻāĻ¨ā§āĻ¯ āĻāĻāĻāĻŋ āĻ¨ā§āĻāĻāĻ¯āĻŧāĻžāĻ°ā§āĻ āĻāĻĒāĻ¸ā§āĻĨāĻŋāĻ¤ āĻāĻŦāĻ āĻ ā§āĻ¯āĻžāĻā§āĻ¸ā§āĻ¸āĻ¯ā§āĻā§āĻ¯ āĻšāĻ¤ā§ āĻšāĻŦā§āĨ¤ āĻ¸ā§āĻ āĻĒāĻ°ā§āĻā§āĻˇāĻžāĻā§āĻ˛ā§ āĻšāĻŦā§
āĻŽā§āĻ˛ āĻŦāĻ¨ā§āĻāĻ¨ āĻĄāĻŋāĻ°ā§āĻā§āĻāĻ°āĻŋāĻ¤ā§ "run_network_tests" āĻĢāĻžāĻāĻ˛āĻāĻŋ āĻāĻĒāĻ¸ā§āĻĨāĻŋāĻ¤ āĻ¨āĻž āĻĨāĻžāĻāĻ˛ā§ āĻŦāĻžāĻĻ āĻĻā§āĻāĻ¯āĻŧāĻž āĻšāĻ¯āĻŧāĨ¤
āĻāĻĒāĻ¨āĻŋ āĻāĻĒāĻ¨āĻžāĻ° āĻĄāĻŋāĻ¸ā§āĻā§āĻ°āĻŋāĻŦāĻŋāĻāĻļāĻ¨ā§āĻ° āĻāĻžāĻ°āĻŦāĻ˛ā§ āĻ¸ā§āĻ āĻĢāĻžāĻāĻ˛āĻāĻŋ āĻ āĻ¨ā§āĻ¤āĻ°ā§āĻā§āĻā§āĻ¤ āĻāĻ°āĻ¤ā§ āĻĒāĻžāĻ°ā§āĻ¨, āĻ¤āĻŦā§ āĻāĻāĻŋ āĻ¤ā§āĻ°āĻŋ āĻāĻ°āĻž āĻāĻ°āĻ āĻāĻžāĻ˛
āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ°āĻāĻžāĻ°ā§āĻā§ āĻāĻŋāĻā§āĻāĻžāĻ¸āĻž āĻāĻ°āĻžāĻ° āĻĒāĻ°ā§ āĻ¸āĻŽāĻ¯āĻŧ āĻāĻ¨āĻ¸ā§āĻāĻ˛ āĻāĻ°ā§āĻ¨āĨ¤ āĻāĻāĻžāĻ¨ā§ āĻāĻŋāĻāĻžāĻŦā§ POE āĻāĻāĻž āĻāĻ°ā§. āĻ¸ā§āĻŦāĻžāĻāĻžāĻŦāĻŋāĻāĻāĻžāĻŦā§āĻ āĻāĻĒāĻ¨āĻŋ āĻŦāĻŋāĻ¨āĻžāĻŽā§āĻ˛ā§āĻ¯ā§ āĻāĻ°āĻ¤ā§ āĻĒāĻžāĻ°ā§āĻ¨
āĻāĻāĻž āĻ āĻ¨ā§āĻ¯ āĻā§āĻ¨ā§ āĻāĻĒāĻžāĻ¯āĻŧāĨ¤
# āĻ¯āĻĻāĻŋ STDIN āĻāĻŋāĻāĻŋ āĻ¨āĻž āĻšāĻ¯āĻŧ āĻ¤āĻŦā§ āĻĄāĻŋāĻĢāĻ˛ā§āĻ āĻāĻāĻ°āĻŖā§ āĻ¸ā§āĻ¯ā§āĻāĻ āĻāĻ°ā§āĻ¨ā§ˇ
āĻ¯āĻĻāĻŋ āĻ¨āĻž (-t STDIN) {
āĻ¸āĻ¤āĻ°ā§āĻ āĻāĻ°ā§āĻ¨(
"\n",
"=============================================\n\n ",
"STDIN āĻāĻāĻāĻŋ āĻāĻžāĻ°ā§āĻŽāĻŋāĻ¨āĻžāĻ˛ āĻ¨āĻ¯āĻŧāĨ¤ āĻ§āĻ°ā§ āĻ¨āĻŋāĻā§āĻāĻŋ --āĻĄāĻŋāĻĢāĻ˛ā§āĻāĨ¤\n\n",
"=============================================\n\n ",
);
āĻĒā§āĻļ @ARGV, "--āĻĄāĻŋāĻĢāĻ˛ā§āĻ";
}
# āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ°āĻāĻžāĻ°ā§āĻā§ āĻŽāĻ¨ā§ āĻāĻ°āĻŋāĻ¯āĻŧā§ āĻĻāĻŋāĻ¨ āĻ¯ā§ āĻ¸ā§ --default āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻāĻ°āĻ¤ā§ āĻĒāĻžāĻ°ā§āĨ¤
āĻ¯āĻĻāĻŋ āĻ¨āĻž (grep /^--default$/, @ARGV) {
āĻ¸āĻ¤āĻ°ā§āĻ āĻāĻ°ā§āĻ¨(
"\n",
"============================================== n\n",
"āĻĒā§āĻ°āĻŽā§āĻĒāĻāĻā§āĻ˛āĻŋāĻā§ --āĻĄāĻŋāĻĢāĻ˛ā§āĻ āĻĒāĻ¤āĻžāĻāĻž āĻĻāĻŋāĻ¯āĻŧā§ āĻŦāĻžāĻāĻĒāĻžāĻ¸ āĻāĻ°āĻž āĻ¯ā§āĻ¤ā§ āĻĒāĻžāĻ°ā§ā§ˇ\n\n",
"============================================== n\n",
);
}
# āĻāĻŽāĻžāĻĻā§āĻ° āĻāĻŋ āĻ¨ā§āĻāĻāĻ¯āĻŧāĻžāĻ°ā§āĻ āĻĒāĻ°ā§āĻā§āĻˇāĻž āĻāĻžāĻ˛āĻžāĻ¨ā§ āĻāĻāĻŋāĻ¤?
āĻāĻŽāĻžāĻ° $prompt = (
"POE-āĻāĻ° āĻāĻŋāĻā§ āĻĒāĻ°ā§āĻā§āĻˇāĻžāĻ° āĻāĻ¨ā§āĻ¯ āĻāĻāĻāĻŋ āĻāĻžāĻ°ā§āĻ¯āĻāĻ°ā§ āĻ¨ā§āĻāĻāĻ¯āĻŧāĻžāĻ°ā§āĻ āĻĒā§āĻ°āĻ¯āĻŧā§āĻāĻ¨ā§ˇ\n"ā§ˇ
"āĻāĻĒāĻ¨āĻŋ āĻāĻžāĻāĻ˛ā§ āĻāĻ āĻĒāĻ°ā§āĻā§āĻˇāĻžāĻā§āĻ˛āĻŋ āĻāĻĄāĻŧāĻŋāĻ¯āĻŧā§ āĻ¯ā§āĻ¤ā§ āĻĒāĻžāĻ°ā§āĻ¨ā§ˇ\n\n"ā§ˇ
"āĻāĻĒāĻ¨āĻŋ āĻāĻŋ āĻ¨ā§āĻāĻāĻ¯āĻŧāĻžāĻ°ā§āĻ āĻĒāĻ°ā§āĻā§āĻˇāĻžāĻā§āĻ˛āĻŋ āĻāĻĄāĻŧāĻŋāĻ¯āĻŧā§ āĻ¯ā§āĻ¤ā§ āĻāĻžāĻ¨?"
);
āĻāĻŽāĻžāĻ° $ret = "n";
āĻ¯āĻĻāĻŋ (grep /^--default$/, @ARGV) {
āĻĒā§āĻ°āĻŋāĻ¨ā§āĻ $prompt, " [$ret] $ret\n\n";
}
āĻ āĻ¨ā§āĻ¯ {
$ret = āĻĒā§āĻ°āĻŽā§āĻĒāĻ($āĻĒā§āĻ°āĻŽā§āĻĒāĻ, "n");
}
āĻāĻŽāĻžāĻ° $marker = 'run_network_tests';
$marker āĻ˛āĻŋāĻā§āĻāĻŽā§āĻā§āĻ¤ āĻāĻ°ā§āĻ¨;
āĻ¯āĻĻāĻŋ āĻ¨āĻž ($ret =~ /^Y$/i) {
āĻā§āĻ˛ā§āĻ¨(TOUCH,"+>$marker") āĻāĻŦāĻ āĻā§āĻ˛ā§āĻ āĻāĻžāĻ;
}
āĻĒā§āĻ°āĻŋāĻ¨ā§āĻ "\n";
āĻā§āĻāĻĻāĻ¨ āĻ āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯ āĻā§āĻ¸ā§āĻ
POE āĻāĻ° āĻ˛ā§āĻĒ āĻĒāĻ°ā§āĻā§āĻˇāĻžāĻā§āĻ˛āĻŋ āĻāĻā§āĻ¨ā§āĻ āĻ˛ā§āĻĒā§āĻ° āĻā§āĻˇāĻŽāĻ¤āĻžāĻ° āĻāĻĒāĻ° āĻāĻŋāĻ¤ā§āĻ¤āĻŋ āĻāĻ°ā§ āĻĒāĻ°ā§āĻā§āĻˇāĻžāĻā§āĻ˛āĻŋāĻā§ āĻ¸āĻā§āĻˇāĻŽ āĻŦāĻž āĻ āĻā§āĻˇāĻŽ āĻāĻ°āĻŦā§ā§ˇ
āĻĄāĻŋāĻ¸ā§āĻā§āĻ°āĻŋāĻŦāĻŋāĻāĻļāĻ¨ āĻāĻŦāĻ āĻāĻā§āĻ¨ā§āĻ āĻ˛ā§āĻĒāĻā§āĻ˛āĻŋ āĻāĻ āĻā§āĻ°āĻŋāĻ¯āĻŧā§āĻŦāĻ˛āĻā§āĻ˛āĻŋāĻā§ āĻ¸āĻāĻā§āĻ¤ āĻĻāĻŋāĻ¤ā§ āĻ¸ā§āĻ āĻāĻ°āĻ¤ā§ āĻĒāĻžāĻ°ā§ āĻā§āĻ¨ āĻĒāĻ°ā§āĻā§āĻˇāĻžāĻā§āĻ˛āĻŋ āĻ āĻŋāĻ āĻāĻā§ā§ˇ
āĻāĻžāĻ˛āĻžāĻ¨ā§āĨ¤
POE_LOOP_USES_POLL
āĻāĻŋāĻā§ āĻĒā§āĻ˛ā§āĻ¯āĻžāĻāĻĢāĻ°ā§āĻŽ āĻ¸āĻŽāĻ°ā§āĻĨāĻ¨ āĻāĻ°ā§ āĻ¨āĻž āĻĒā§āĻ˛() āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻ āĻ§āĻ°āĻŖā§āĻ° āĻĢāĻžāĻāĻ˛āĻšā§āĻ¯āĻžāĻ¨ā§āĻĄā§āĻ˛āĻā§āĻ˛āĻŋāĻ¤ā§āĨ¤ āĻāĻāĻ¨āĻž loops āĻ¯ā§
āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻĒā§āĻ˛() āĻāĻāĻāĻŋ āĻ¸āĻ¤ā§āĻ¯ āĻŽāĻžāĻ¨ āĻāĻ āĻĒāĻ°āĻŋāĻŦā§āĻļ āĻĒāĻ°āĻŋāĻŦāĻ°ā§āĻ¤āĻ¨āĻļā§āĻ˛ āĻ¸ā§āĻ āĻāĻ°āĻž āĻāĻāĻŋāĻ¤. āĻāĻāĻŋ āĻĒāĻ°ā§āĻā§āĻˇāĻžāĻ° āĻāĻžāĻ°āĻŖ āĻšāĻŦā§
āĻāĻ āĻāĻžāĻŽā§āĻ˛āĻžāĻĒā§āĻ°ā§āĻŖ āĻ¸āĻŽāĻ¨ā§āĻŦāĻ¯āĻŧ āĻāĻĄāĻŧāĻŋāĻ¯āĻŧā§ āĻ¯ā§āĻ¤ā§.
āĻĒāĻĄāĻŋāĻāĻŋāĻ¸
POE::Test::Loops āĻ¨āĻĨāĻŋāĻā§āĻā§āĻ¤ "=for poe_tests" āĻŦāĻŋāĻāĻžāĻāĻā§āĻ˛āĻŋāĻ° āĻĒā§āĻ°ā§āĻŦāĻŦāĻ°ā§āĻ¤ā§ āĻ¸āĻāĻ¸ā§āĻāĻ°āĻŖāĻā§āĻ˛āĻŋāĻ° āĻĻā§āĻŦāĻžāĻ°āĻž āĻ¸āĻŽāĻžāĻĒā§āĻ¤
= āĻāĻžāĻāĻž āĻāĻŦāĻ āĻĢāĻžāĻāĻāĻž āĻ˛āĻžāĻāĻ¨ āĻ§āĻžāĻ°āĻŖāĻāĻžāĻ°ā§āĨ¤ āĻāĻāĻŋ āĻā§āĻ˛ POD āĻ¸āĻŋāĻ¨āĻā§āĻ¯āĻžāĻā§āĻ¸, āĻāĻŦāĻ āĻāĻāĻŋāĻ° āĻāĻžāĻ°āĻŖ
āĻŦāĻžāĻĻ_āĻĒāĻ°ā§āĻā§āĻˇāĻž() āĻĢāĻžāĻāĻļāĻ¨ perldoc āĻāĻŦāĻ search.cpan.org āĻ āĻĻā§āĻāĻžāĻ¨ā§ āĻšāĻ¯āĻŧā§āĻā§āĨ¤ āĻ¨āĻŋāĻŽā§āĻ¨āĻ˛āĻŋāĻāĻŋāĻ¤ āĻ¸āĻŋāĻ¨āĻā§āĻ¯āĻžāĻā§āĻ¸
āĻā§āĻ˛ āĻāĻŦāĻ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻāĻ°āĻž āĻāĻāĻŋāĻ¤ āĻ¨āĻ¯āĻŧāĨ¤ āĻāĻŽāĻŋ āĻā§āĻŦāĻ āĻĻā§āĻāĻāĻŋāĻ¤.
= āĻāĻŦāĻŋāĻ¤āĻž_āĻĒāĻ°ā§āĻā§āĻˇāĻžāĻ° āĻāĻ¨ā§āĻ¯
āĻ¸āĻžāĻŦ āĻ¸ā§āĻāĻŋāĻĒ_āĻā§āĻ¸ā§āĻ { ... }
= āĻāĻžāĻāĻž
āĻ¸āĻ āĻŋāĻ āĻ¸āĻŋāĻ¨āĻā§āĻ¯āĻžāĻā§āĻ¸ āĻšāĻ˛ āĻāĻāĻāĻŋ āĻĢāĻžāĻāĻāĻž āĻ˛āĻžāĻāĻ¨ āĻĻāĻŋāĻ¯āĻŧā§ "=for poe_tests" āĻŦāĻ¨ā§āĻ§ āĻāĻ°āĻž:
= āĻāĻŦāĻŋāĻ¤āĻž_āĻĒāĻ°ā§āĻā§āĻˇāĻžāĻ° āĻāĻ¨ā§āĻ¯
āĻ¸āĻžāĻŦ āĻ¸ā§āĻāĻŋāĻĒ_āĻā§āĻ¸ā§āĻ {
...
}
āĻĢāĻžāĻāĻāĻž āĻ˛āĻžāĻāĻ¨ āĻ§āĻžāĻ°āĻŖāĻāĻžāĻ°ā§ āĻŦāĻšā§-āĻ˛āĻžāĻāĻ¨ āĻĒāĻ°ā§āĻā§āĻˇāĻžāĻā§āĻ˛āĻŋ POD āĻāĻ° "=begin poe_tests" āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻāĻ°ā§ āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻ āĻāĻ°āĻž āĻ¯ā§āĻ¤ā§ āĻĒāĻžāĻ°ā§
"=end poe_tests" āĻĻā§āĻŦāĻžāĻ°āĻž āĻ¸āĻŽāĻžāĻĒā§āĻ¤āĨ¤
= āĻāĻŦāĻŋāĻ¤āĻž_āĻĒāĻ°ā§āĻā§āĻˇāĻž āĻļā§āĻ°ā§ āĻāĻ°ā§āĻ¨
āĻ¸āĻžāĻŦ āĻ¸ā§āĻāĻŋāĻĒ_āĻā§āĻ¸ā§āĻ {
...
}
= āĻļā§āĻˇ āĻāĻŦāĻŋāĻ¤āĻž_āĻĒāĻ°ā§āĻā§āĻˇāĻž
āĻāĻĒāĻ°ā§āĻ° āĻ¤āĻŋāĻ¨āĻāĻŋ āĻ¸āĻŋāĻ¨āĻā§āĻ¯āĻžāĻā§āĻ¸ POE::Test::Loops āĻ¸āĻāĻ¸ā§āĻāĻ°āĻŖ 1.034 āĻšāĻŋāĻ¸āĻžāĻŦā§ āĻ¸āĻŽāĻ°ā§āĻĨāĻŋāĻ¤āĨ¤ āĻĻā§āĻ¯
āĻā§āĻ˛ = āĻ¸āĻŋāĻ¨āĻā§āĻ¯āĻžāĻā§āĻ¸ āĻ āĻŦāĻāĻ¯āĻŧ āĻāĻŦāĻ āĻāĻŦāĻŋāĻˇā§āĻ¯āĻ¤ā§ āĻāĻŋāĻā§ āĻ°āĻŋāĻ˛āĻŋāĻā§ āĻ¸āĻ°āĻžāĻ¨ā§ āĻšāĻŦā§āĨ¤
onworks.net āĻĒāĻ°āĻŋāĻˇā§āĻŦāĻž āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻāĻ°ā§ āĻ āĻ¨āĻ˛āĻžāĻāĻ¨ā§ poe-gen-testsp āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻāĻ°ā§āĻ¨