COBOLでもやりたいテスト自動化 .pdf

Transcript

1. COBOLͰ΋΍Γ͍ͨ ςετࣗಈԽ 12೥3݄28೔ਫ༵೔
2. • ୯ମςετͬͯΊΜͲ͍͘͞ΑͶ • ੈͷதʹ͸ࣗಈςετͳΔ΋ͷ͕͋ΔΒ͠ ͍ • ͦΕCOBOLͰ΋΍Γ͍ͨʂ • ςετେ޷͖ʂ ( ›◡ु‹ ) ͜Μͳײ͡ͷྲྀΕͰ͍͖·͢ 12೥3݄28೔ਫ༵೔
3. ςετ௒ϝϯυ͍͘͞ 12೥3݄28೔ਫ༵೔
4. • ςετυϥΠόॻ͘ͷͱ͔ • ςετσʔλ࡞Δͷͱ͔ • ςετ݁Ռ͕ଥ౰͔Ͳ͏͔Ұʑݟͯ֬ೝ ͠ͳ͖ΌͳΒͳ͍ͱ͔ • …Λਖ਼͘͠ಈ͘Α͏ʹͳΔ·Ͱ΍Δͱ͔ ςετͷԿ͕ ϝϯυ͍͘͞ͷ͔ 12೥3݄28೔ਫ༵೔
5. Կ͕ϝϯυ͍ͬͯ͘͞ ͜Μͳ͜ͱΛPGʹखΛ ೖΕΔͨͼʹ΍Βͳ͘ ͪΌͳΒΜ͜ͱͩ 12೥3݄28೔ਫ༵೔
6. • ճؼςετͱ͔ϗϯτʹͪΌΜͱ΍ͬͯ Δʁ • ςετऀʹΑͬͯϨϕϧ͕ҧ͏ͷ΋ݏͳײ ͡ • ϦϑΝΫλϦϯά΋͓͓ͪͪग़དྷ΍͠ͳ͍ The Long And Winding Roadʢอकͷಓʣ 12೥3݄28೔ਫ༵೔
7. ͦ͜ͰࣗಈςετͰ͢Α 12೥3݄28೔ਫ༵೔
8. ϑϨʔϜϫʔΫΛ༻͍ͯςετ(ͷҰ෦)ΛࣗಈԽ ͢Δ • ςετέʔεͷઃܭ • ςετͷ࣮ߦͱ݁Ռͷ֬ೝ • ςετਐḿͷ؅ཧ • Ϩϙʔτͷ࡞੒ ࣗಈςετͱ͸ 12೥3݄28೔ਫ༵೔
9. ςεςΟϯάϑϨʔϜϫʔΫ • xUnit • Java=>JUnit, C=>CUnit, PHP=>PHPUnit • Rspec(Ruby, BDD) • ࣗಈςετͱ͸ 12೥3݄28೔ਫ༵೔
10. ࣗಈςετͱ͸ xUnit etc. Test Target ςετର৅Λ࣮ߦ ੒൱Λग़ྗ 12೥3݄28೔ਫ༵೔
11. Ex: JUnit public class GetAgeTest extends TestCase { public void testGetAge() { Nenrei nenrei = new Nenrei(); int age = nenrei.getAge("1979/10/8"); assertEquals("೥ྸ͕ਖ਼͘͠ͳ͍",32, age); } } ੜ೥݄೔Λड͚औͬͯ೥ྸΛฦ͢ϝιουΛྫʹ int Nenrei.getAge(String birthday) 12೥3݄28೔ਫ༵೔
12. Ex: JUnit //========== JUnit 3.8.2 =================== java -classpath .;junit-3.8.1.jar junit.textui.TestRunner junit.JUnitSampleTest ...E. Time: 0.002 There was 1 error: 1) testC(junit.JUnitSampleTest)java.lang.RuntimeException: Exception at junit.JUnitSampleTest.testC(JUnitSampleTest.java: 31) Tests run: 3, Failures: 0, Errors: 1 ग़ྗ͞Εͨ݁Ռͷྫ 12೥3݄28೔ਫ༵೔
13. Ex: RSpec describe Nenrei do subject do Nenrei.new end context "೔෇͕༩͑ΒΕͨ࣌" do it "೥ྸΛฦ͢" do subject.getAge("1979/10/08").should == 32 end end end ಉ͡೥ྸϝιουͷྫ 12೥3݄28೔ਫ༵೔
14. Ex: RSpec describe Stack do context "when new" do it { should be_empty } it { should have(0).items } end end ΋ͬͱ΋γϯϓϧͳྫ 12೥3݄28೔ਫ༵೔
15. Ex: RSpec ग़ྗ͞Εͨ݁Ռͷྫ 12೥3݄28೔ਫ༵೔
16. • ςετ͕ର৅Λ࣮ߦ͢Δ • ςετσʔλͱͦͷ݁Ռ͸ςετίʔυͷ ͳ͔ʹهड़͞ΕΔ • ςετίʔυ=࢓༷(SPEC) • ςετίʔυ͕ͦͷ··ར༻ํ๏ͷखҾ͖ ࣗಈςετͷར఺ 12೥3݄28೔ਫ༵೔
17. • ςετίʔυ͕͋Ε͹͍ͭͰ΋୭Ͱ΋Կ౓Ͱ ΋࣮ߦग़དྷΔ • ࢓༷มߋͷࡍɺมߋ͞Εͨ࢓༷͚ͩͰͳ͘ط ଘ࢓༷΋֬ೝग़དྷΔ(ճؼςετ) • ςετʹकΒΕ͍ͯΔɾվम͕ා͘ͳ͍ • ֎෦࢓༷Λม͑ͣʹ಺෦࢓༷ΛվળͰ͖Δ(Ϧ ϑΝΫλϦϯά) ࣗಈςετͷར఺ 12೥3݄28೔ਫ༵೔
18. • ຊମͷίʔυͱͱ΋ʹςετίʔυ΋อक ཁΔ • ద༻ग़དྷΔ(͠қ͍)΋ͷɺͦ͏Ͱͳ͍΋ͷ • ϨΨγʔίʔυͷςετશ෦ॻ͘ʁ ࣗಈςετͷ೉఺ 12೥3݄28೔ਫ༵೔
19. ͦΜͳʹΠΠ΋ͷͳΒ COBOLͰ΋΍Γ͍͚ͨͲ… 12೥3݄28೔ਫ༵೔
20. Ex: COBOLUnit PROCEDURE DIVISION USING CBU-ctx CBU-user-context. * Initialize a command order MOVE ITALY TO TO-COUNTRY. MOVE FRANCE TO FROM-COUNTRY. MOVE "S99MLP15" TO PRODUCT-CODE. * Call the COBOL program that set deliver taxes CALL "PR-ORDER" USING COMMAND-ORDER COUNTRY-LIST. * Add Assertion for deliver tax MOVE "FR => IT:TAX=120" TO CBU-ASSERT-NAME. SET CBU-ASSERT-EQUAL TO TRUE. SET CBU-ASSERT-INT TO TRUE. MOVE 120 TO CBU-ASSERT-EXPECTED-INT. MOVE DELIVER-TAX TO CBU-ASSERT-ACTUAL-INT. CALL CBU-assert USING CBU-ASSERT-CALL-INTERFACE CBU-ctx. 12೥3݄28೔ਫ༵೔
21. COBOLUnit͕μϝͳΒ RSpecͰ΍Ε͹ΠΠ͡Όͳ͍ 12೥3݄28೔ਫ༵೔
22. Ruby→COBOLϒϦοδ ॻ͍ͨ RSpec Test Target ςετର৅Λ࣮ߦ ੒൱Λग़ྗ ϒϦοδ Ruby͔ΒCOBOLΛ CALL͢Δ 12೥3݄28೔ਫ༵೔
23. RSpec on COBOL describe Nenrei do subject.invoke do record=Record.define("ੜ೥݄೔", "೥ྸ") Invoker.new("nenrei.dll", record) end context "೔෇͕༩͑ΒΕͨ࣌" do before :all do subject.ੜ೥݄೔ = "1979/10/8" subject.invoke end it "೥ྸΛฦ͢" do subject.೥ྸ.should == 32 end end end 12೥3݄28೔ਫ༵೔
24. • ׽ࣈࢯ໊ɺӳࣈࢯ໊ɺ௨শ໊ɺΧφࢯ໊ɺ Χφ௨শ໊ɺetc.Λड͚औΓɺ • ূ໌ॻɺҰཡܥாථɺ༣ૹ෺ͷѼ໊ɺը໘ දࣔɺetc.ͷ֤ʑʹ߹ΘͤͨฤूΛͯ͠ฦ͢ • ͬ͘͟Γύλʔϯ਺Ͱ1,000͘Β͍ʁ ີ͔ͳΔద༻ࣄྫ ࢯ໊ฤूαϒϧʔνϯ 12೥3݄28೔ਫ༵೔
25. • ඞཁશύλʔϯͷςετίʔυΛ࡞੒ • ΦʔϧάϦʔϯ • ࣗಈςετӡ༻։࢝ʂ • ͱࢥͬͨ໼ઌɺଞͷਓͷखʹΑΓຊମίʔυʹ࢓༷ มߋ • ͋ͬͱ͍͏·ʹςετίʔυ௠෗Խ ີ͔ͳΔద༻ࣄྫ ࢯ໊ฤूαϒϧʔνϯ 12೥3݄28೔ਫ༵೔
26. • ruby→COBOLݺͼग़͕͠ۃ୺ʹෆ҆ఆ →segvు͖·͘Γ͡Ό͋࢖͍෺ʹͳΒͳ͍ͩΖ͏Α • ద༻Ͱ͖Δܕͷ֦େ →ؔ਺ܕʢʁʣ͚ͩ͡Όڱ͗͢Δ • ςετͷॻ͖΍͢͞޲্ →ॻ͖΍ͦ͢͜͞ࢸ্ɺܧଓͷΩϞ ີ͔ͳΔࠓޙͷ՝୊ 12೥3݄28೔ਫ༵೔
27. ςετେ޷͖ʂ ( ›◡ु‹ ) ͦΜͳ͜ΜͳͰ 12೥3݄28೔ਫ༵೔
28. ͝੩ௌ͋Γ͕ͱ͏ ͍͟͝·ͨ͠ɻ 12೥3݄28೔ਫ༵೔