Javaの実装をPerlでテストする

YAPC::Kyoto 2023 Lightning Talks

Sample Code: https://github.com/karupanerura/sample-perl-with-others-test

References:
- https://techcon2023.dena.dev/session/session6/

Transcript

1. Javaͷ࣮૷Λ PerlͰςετ͢Δ YAPC::Kyoto 2023 Lightning Talks @karupanerura
2. @karupanerura • DeNA Co., LTD - Software Engineer • Japan Perl Association - Chief Director • Perl / Go / Java / Type Script / etc...
3. SEE: https://techcon2023.dena.dev/session/session6/
4. SEE: https://techcon2023.dena.dev/session/session6/
5. SEE: https://techcon2023.dena.dev/session/session6/
6. SEE: https://techcon2023.dena.dev/session/session6/ Ͳ͏͍͏͜ͱʁ
7. Plack::Test
8. Plack::Test • PSGI appΛςετ͢ΔͨΊͷPlackެࣜϢʔςΟϦςΟ • PSGI appʹରͯ͠೚ҙͷϦΫΤετΛॲཧͤͯ͞ϨεϙϯεΛಘΔ • ϦΫΤετ: HTTP::Request • Ϩεϙϯε: HTTP::Response
9. Plack::Testͷྫ test_psgi client => sub { my $cb = shift; my $req = HTTP::Request->new(GET => "http://localhost/hello"); my $res = $cb->($req); is $res->content, 'Hello World'; is $res->content_type, 'text/plain'; is $res->code, 200; }, app => sub { my $env = shift; return [ 200, [ 'Content-Type' => 'text/plain' ], [ "Hello World" ] ]; };
10. ͜ΕΛͦͷ··࢖ͬͯ JavaଆΛςετͰ͖ͨΒ ָʹ҆ఆੑ͕ߴ·ΔͷͰ͸ʁ
11. Αͬ͠Ό ΍Δͧʂʂʂ
12. Ͳ͏΍ͬͯ΍Δʁ
13. Plack::Testͷྫ test_psgi client => sub { my $cb = shift; my $req = HTTP::Request->new(GET => "http://localhost/hello"); my $res = $cb->($req); is $res->content, 'Hello World'; is $res->content_type, 'text/plain'; is $res->code, 200; }, app => sub { my $env = shift; return [ 200, [ 'Content-Type' => 'text/plain' ], [ "Hello World" ] ]; };
14. Plack::Testͷྫ test_psgi client => sub { my $cb = shift; my $req = HTTP::Request->new(GET => "http://localhost/hello"); my $res = $cb->($req); # <---------- focus here is $res->content, 'Hello World'; is $res->content_type, 'text/plain'; is $res->code, 200; }, app => sub { my $env = shift; return [ 200, [ 'Content-Type' => 'text/plain' ], [ "Hello World" ] ]; };
15. my $res = $cb->($req);
16. ຊ෺ͷHTTP RequestΛ͢Δ SubRefΛ࢖͑͹͍͍ͷͰ͸ʁ
17. Plack::Test ͷυΩϡϝϯτͷ༷ࢠ
18. Plack::Test ͷυΩϡϝϯτͷ༷ࢠ
19. উͬͨʂʂʂʂ ୈࡾ෦ ׬ʂʂʂ
20. উͬͨʂʂʂʂ ୈࡾ෦ ׬ʂʂʂ
21. ͳͥͩΊͳͷ͔
22. 1. ઃܭ্ͷো֐ 2. ϞοΫ/ελϒͷฐ֐
23. 1. ઃܭ্ͷো֐ 2. ϞοΫ/ελϒͷฐ֐
24. ઃܭ্ͷো֐
25. ͦ΋ͦ΋ͷഎܠ • Perl੡ͷWebΞϓϦͷJava΁ͷஈ֊తͳҠߦ • ͜ΕΛ࣮ݱ͢ΔͨΊʹJavaͷ࣮૷͔Β΋ͱͷPerl࣮૷Λར༻ • APIܦ༝Ͱ΋ͱ΋ͱͷPerl࣮૷Λݺͼग़͢ • (࠷ऴతʹ͸͜Ε΋Javaʹஔ͖׵͑ͯPerl͔ΒJavaʹ׬શҠߦ) • PerlͱJava͕ࠞࡏ͢Δঢ়ଶΛςετ͍ͨ͠
26. ͭ·Γ
27. Before 0ME
    1FSM
    "QQ -
    -# ALL
28. After 0ME
    1FSM
    "QQ -
    -# /FX
    +BWB
    "QQ /path/to/current /path/to/replaced /path/to/internal1 /path/to/internal2 /path/to/internal3 and others
29. (Finally) /FX
    +BWB
    "QQ -
    -# ALL
30. PerlͱJava͕ࠞࡏ͢Δঢ়ଶΛ ςετ͍ͨ͠
31. After 0ME
    1FSM
    "QQ -
    -# /FX
    +BWB
    "QQ /path/to/current /path/to/replaced /path/to/internal1 /path/to/internal2 /path/to/internal3 and others
32. JavaʹϦΫΤετΛ౤͛ͭͭ Java -> Perl ͷϦΫΤετ΋ ॲཧ͢Δඞཁ͕͋Δ
33. Α͠
34. fork(2)
35. উͬͨʂʂʂʂ ୈࡾ෦ ׬ʂʂʂ
36. উͬͨʂʂʂʂ ୈࡾ෦ ׬ʂʂʂ
37. 1. ઃܭ্ͷো֐ 2. ϞοΫ/ελϒͷฐ֐
38. fork(2)ͩͱͳͥବ໨ͳͷ͔ • Test::Mock::Guard΍Module::SpyͳͲͰ৭ʑͱ্ॻ͖͍ͯ͠Δ • μΠφϛοΫείʔϓͰαϒϧʔνϯΛҰ࣌తʹ্ॻ͖ • είʔϓ͕ผʹͳΔͱͦ΋ͦ΋͜Ε͕൓ө͞Εͣຊ෺ͷ࣮૷͕ಈ͘ • ্ॻ͖ͨ͠αϒϧʔνϯͰ஋Λୣͬͯ݁Ռͷൺֱʹ࢖ͬͨΓ • ΍Γ͍ͨ΄͏͍ͩ • ΋͕Έ͕Θ
39. ͭ·Γ
40. ͜͏͍͏ײ͡ͷίʔυ͕͋Δ my $sent = 0; my $guard = Test::Mock::Guard->new( 'MyEmailSender' => { send => sub { $sent++ } }, ); my $res = $doit->($req); is $sent, 1, 'ϝʔϧΛ1௨͓ͬͨ͘Α';
41. fork(2)Ͱ͸ϓϩηε͕ผΕΔ
42. ผϓϩηεͷม਺͸ݟ͑ͳ͍
43. fork(2) is dead
44. Ͳ͏͢Δ͔
45. ಉҰϓϩηεͰશ෦΍Δ
46. Java͔ΒͷϨεϙϯεΛ଴ͪଓ͚ Internal API΁ͷϦΫΤετΛॲཧ
47. ͜Ε͔͠ͳ͍Ͱ͠ΐ͏
48. select(2)
49. select(2)Λ࢖ͬͨղ๏ • Internal API΁ͷϦΫΤετΛड͚औΔSocketΛListen͢Δ • HTTP ClientͰJavaʹϦΫΤετΛ౤͛ͨΒselect(2)Ͱ଴ͭ • Internal API΁ͷϦΫΤετ͕དྷΔ or Java͔ΒϨεϙϯε͕དྷΔ • Listenͨ͠Socket͕ى͖ͨΒInternal APIΛॲཧͯ͠·ͨselect(2) • Java͔ΒϨεϙϯε͕དྷͨΒऴྃ
50. ਤղ
51. ςετ࣮ߦγʔέϯε 1SFQBSF
    .PDL
    FUD /FX
    +BWB
    "QQ
52. ςετ࣮ߦγʔέϯε 1SFQBSF
    .PDL
    FUD 1MBDL5FTU /FX
    +BWB
    "QQ
53. ςετ࣮ߦγʔέϯε 1SFQBSF
    .PDL
    FUD 1MBDL5FTU /FX
    +BWB
    "QQ *OUFSOBM
    "1*
    5$1
    -JTUFOFS
54. ςετ࣮ߦγʔέϯε 1SFQBSF
    .PDL
    FUD 1MBDL5FTU TFMFDU  /FX
    +BWB
    "QQ *OUFSOBM
    "1*
    5$1
    -JTUFOFS
55. ςετ࣮ߦγʔέϯε 1SFQBSF
    .PDL
    FUD 1MBDL5FTU TFMFDU  /FX
    +BWB
    "QQ *OUFSOBM
    "1*
    5$1
    -JTUFOFS
56. ςετ࣮ߦγʔέϯε 1SFQBSF
    .PDL
    FUD 1MBDL5FTU TFMFDU  /FX
    +BWB
    "QQ *OUFSOBM
    "1*
    5$1
    -JTUFOFS
57. ςετ࣮ߦγʔέϯε 1SFQBSF
    .PDL
    FUD 1MBDL5FTU TFMFDU  /FX
    +BWB
    "QQ *OUFSOBM
    "1*
    5$1
    -JTUFOFS *OUFSOBM
    "1*
    14(*
    "QQ
58. ςετ࣮ߦγʔέϯε 1SFQBSF
    .PDL
    FUD 1MBDL5FTU TFMFDU  /FX
    +BWB
    "QQ *OUFSOBM
    "1*
    5$1
    -JTUFOFS *OUFSOBM
    "1*
    14(*
    "QQ
59. ςετ࣮ߦγʔέϯε 1SFQBSF
    .PDL
    FUD 1MBDL5FTU TFMFDU  /FX
    +BWB
    "QQ *OUFSOBM
    "1*
    5$1
    -JTUFOFS
60. ςετ࣮ߦγʔέϯε 1SFQBSF
    .PDL
    FUD 1MBDL5FTU TFMFDU  /FX
    +BWB
    "QQ *OUFSOBM
    "1*
    5$1
    -JTUFOFS
61. ςετ࣮ߦγʔέϯε 1SFQBSF
    .PDL
    FUD 1MBDL5FTU TFMFDU  /FX
    +BWB
    "QQ *OUFSOBM
    "1*
    5$1
    -JTUFOFS *OUFSOBM
    "1*
    14(*
    "QQ
62. ςετ࣮ߦγʔέϯε 1SFQBSF
    .PDL
    FUD 1MBDL5FTU TFMFDU  /FX
    +BWB
    "QQ *OUFSOBM
    "1*
    5$1
    -JTUFOFS *OUFSOBM
    "1*
    14(*
    "QQ
63. ςετ࣮ߦγʔέϯε 1SFQBSF
    .PDL
    FUD 1MBDL5FTU TFMFDU  /FX
    +BWB
    "QQ *OUFSOBM
    "1*
    5$1
    -JTUFOFS
64. ςετ࣮ߦγʔέϯε 1SFQBSF
    .PDL
    FUD 1MBDL5FTU TFMFDU  /FX
    +BWB
    "QQ *OUFSOBM
    "1*
    5$1
    -JTUFOFS
65. ςετ࣮ߦγʔέϯε 1SFQBSF
    .PDL
    FUD 1MBDL5FTU $IFDL
    3FTVMU
66. ςετ࣮ߦγʔέϯε 1SFQBSF
    .PDL
    FUD 1MBDL5FTU $IFDL
    3FTVMU EPOF@UFTUJOH
67. ղܾ
68. Ͳ͏΍ͬͯ΍ͬͯΔͷ • LWP(HTTP Client)Λຐվ଄ͭͭ͠Starlet(PSGI Server)Λѱ༻͢Δ • LWP::Protocol::httpsΛܧঝͨ͠ΦϨΦϨprotocolΛͭͬͯ͘޷͖์୊ • Starlet::Server#accept_loop͸max reqs per childΛ1ʹͯ͠ݺͼग़͢ • Server::Starter༻ʹ༻ҙ͞Εͨlistenersʹࣗ෼Ͱ࡞ͬͨSocketΛ౉͢ • acceptͯ͠ϦΫΤετΛॲཧ͢Δ·ͰStarletͰશࣗಈ
69. select(2) is cool
70. ͓ΘΓ