Hier is een basisvoorbeeld van een Fortran-programma dat automatische unittests uitvoert op jouw modules `module_data_processing` en `module_math_functions`. Dit programma voert eenvoudige tests uit en geeft de resultaten op de console weer. **Voorbeeld Fortran-code voor een eenvoudige unittest-structuur:** ```fortran program unittest_runner implicit none integer :: tests_passed = 0 integer :: tests_failed = 0 print *, 'Starting unittests...' ! Test module_data_processing call test_module_data_processing(tests_passed, tests_failed) ! Test module_math_functions call test_module_math_functions(tests_passed, tests_failed) print *, 'Unittests voltooid.' print *, 'Totaal tests geslaagd: ', tests_passed print *, 'Totaal tests mislukt: ', tests_failed contains subroutine test_module_data_processing(passed, failed) integer, intent(inout) :: passed, failed ! Voorbeeld test: controleer of een data processing functie correct werkt real :: input_value, expected_output, actual_output input_value = 10.0 expected_output = 20.0 ! Vervang door de verwachte output van jouw functie actual_output = module_data_processing :: process_data(input_value) if (abs(actual_output - expected_output) < 1e-6) then print *, 'module_data_processing: test passed' passed = passed + 1 else print *, 'module_data_processing: test failed' failed = failed + 1 end if end subroutine subroutine test_module_math_functions(passed, failed) integer, intent(inout) :: passed, failed real :: a, b, expected, actual a = 3.0 b = 4.0 expected = 5.0 ! Bijvoorbeeld: hypotenusa actual = module_math_functions :: hypotenuse(a, b) if (abs(actual - expected) < 1e-6) then print *, 'module_math_functions: test passed' passed = passed + 1 else print *, 'module_math_functions: test failed' failed = failed + 1 end if end subroutine end program unittest_runner ! Dummy modules en functies (moeten worden vervangen door jouw implementaties) module module_data_processing implicit none contains real function process_data(x) real, intent(in) :: x process_data = 2.0 * x ! Voorbeeld implementatie end function end module module module_math_functions implicit none contains function hypotenuse(a, b) result(c) real, intent(in) :: a, b real :: c c = sqrt(a**2 + b**2) end function end module ``` **Uitleg over interpretatie en integratie:** - **Testresultaten interpreteren:** Elke test geeft een "test passed" of "test failed" bericht. Aan het eind zie je het totaal aantal geslaagde en gefaalde tests. Een succesvolle codebase heeft alle tests passing; gefaalde tests wijzen op mogelijke bugs of onverwachte gedrag. - **Testproces in je workflow integreren:** 1. **Automatisering:** Voeg dit testprogramma toe aan je build- of compilatieproces. Bijvoorbeeld, na elke compilatie voer je de tests uit. 2. **Continuous Integration (CI):** Integreer het in een CI-systeem zoals Jenkins of GitHub Actions zodat testen automatisch draaien bij elke commit of pull request. 3. **Regelmatige uitvoering:** Voer de tests uit vóór belangrijke releases of codewijzigingen. 4. **Uitbreiding:** Voeg meer tests toe voor verschillende functies en randgevallen om de testdekking te vergroten. 5. **Rapportage:** Gebruik de console-uitvoer voor snelle feedback. Voor uitgebreidere rapportages kun je logs genereren of de resultaten exporteren naar bestanden. Door deze aanpak zorg je voor een gestructureerd en betrouwbaar testproces dat je helpt bugs vroegtijdig te detecteren en de kwaliteit van je code te waarborgen.

Hier is een voorbeeld van een Fortran-testprogramma met uitleg over interpretatie en integratie: ```fortran program test_runner use module_data_processing use module_math_functions implicit none integer :: passed_tests, total_tests logical :: test_result passed_tests = 0 total_tests = 0 write(*,*) "=== UNIT TEST RUNNER START ===" write(*,*) ! Test module_data_processing call test_data_processing(passed_tests, total_tests) ! Test module_math_functions call test_math_functions(passed_tests, total_tests) write(*,*) write(*,*) "=== TEST SAMENVATTING ===" write(*,'(A,I2,A,I2)') "Geslaagd: ", passed_tests, " van ", total_tests write(*,'(A,F5.1,A)') "Succesratio: ", (real(passed_tests)/real(total_tests))*100, "%" if (passed_tests == total_tests) then write(*,*) "✅ ALLE TESTS GESLAAGD!" else write(*,*) "❌ SOMSIGE TESTS MISLUKT!" end if contains subroutine test_data_processing(passed, total) integer, intent(inout) :: passed, total logical :: result write(*,*) "--- Testing module_data_processing ---" ! Test 1 total = total + 1 result = test_data_validation() if (result) passed = passed + 1 call report_test("Data validatie test", result) ! Test 2 total = total + 1 result = test_data_transformation() if (result) passed = passed + 1 call report_test("Data transformatie test", result) end subroutine subroutine test_math_functions(passed, total) integer, intent(inout) :: passed, total logical :: result write(*,*) "--- Testing module_math_functions ---" ! Test 1 total = total + 1 result = test_vector_operations() if (result) passed = passed + 1 call report_test("Vector operaties test", result) ! Test 2 total = total + 1 result = test_matrix_operations() if (result) passed = passed + 1 call report_test("Matrix operaties test", result) end subroutine subroutine report_test(test_name, result) character(len=*), intent(in) :: test_name logical, intent(in) :: result if (result) then write(*,'(A,A,A)') "✅ ", trim(test_name), " - GESLAAGD" else write(*,'(A,A,A)') "❌ ", trim(test_name), " - MISLUKT" end if end subroutine ! Voorbeeld testfuncties - deze moeten je eigen tests bevatten logical function test_data_validation() ! Implementeer je eigen testlogica test_data_validation = .true. ! Placeholder end function logical function test_data_transformation() ! Implementeer je eigen testlogica test_data_transformation = .true. ! Placeholder end function logical function test_vector_operations() ! Implementeer je eigen testlogica test_vector_operations = .true. ! Placeholder end function logical function test_matrix_operations() ! Implementeer je eigen testlogica matrix_operations = .true. ! Placeholder end function end program test_runner ``` ## 📊 Testresultaten Interpreteren **Geslaagde tests (✅):** - Groen vinkje toont geslaagde tests - Alle assertions zijn correct - Geen runtime errors **Mislukte tests (❌):** - Rood kruisje toont mislukte tests - Controleer de specifieke testoutput - Bekijk welke assertion faalde - Check voor runtime errors of excepties **Samenvatting:** - Totaal aantal uitgevoerde tests - Percentage geslaagde tests - Algemene status (alleen groen als 100% slaagt) ## 🔄 Integratie in Ontwikkelworkflow 1. **Test First Development:** ```bash # Schrijf eerst tests, dan implementatie gfortran -o test_runner test_runner.f90 module_*.f90 ./test_runner ``` 2. **Automate in Makefile:** ```makefile test: gfortran -o test_runner test_runner.f90 module_*.f90 ./test_runner .PHONY: test ``` 3. **CI/CD Integratie:** ```yaml # .gitlab-ci.yml of GitHub Actions test: script: - gfortran -o test_runner test_runner.f90 module_*.f90 - ./test_runner ``` 4. **Pre-commit Hook:** ```bash # .git/hooks/pre-commit #!/bin/bash make test if [ $? -ne 0 ]; then echo "Tests failed - commit aborted" exit 1 fi ``` ## 💡 Aanbevolen Praktijken - **Test coverage:** Zorg dat alle kritieke paden getest worden - **Isolatie:** Elke test moet onafhankelijk werken - **Herhaalbaarheid:** Tests moeten consistent dezelfde resultaten geven - **Documentatie:** Beschrijf wat elke test verifieert Het programma kan uitgebreid worden met: - Gedetailleerde foutmeldingen - Performance timing - XML/JSON output voor CI tools - Code coverage met tools zoals gcov