Unit Test con Embarcadero RAD Studio
0 likes174 views
The document provides an introduction to unit testing using the DUnit framework within Embarcadero RAD Studio, detailing the installation and project setup. It outlines steps for creating applications and tests, as well as how to create and run test suites. Additional resources and contact information for further learning are also shared.
Unit Test con Embarcadero RAD Studio
- 1. Unit Test con Embarcadero Primeros pasos con el framework DUnit Juan Vladimir @juanvladimir13
- 2. Agenda Conocimientos previos 1. Testing 2. Unit Test Framework 1. DUnit 2. Instalación Example 1. Estructura de software 2. New project App 3. New project Test 4. Test Suite
- 3. Conocimientos Previos El contenido fue desarrollado anteriormente, para las personas que no lo pudieron apreciar, les comparto los enlaces. Youtube : https://www.youtube.com/watch?v=oWbbTROrmcQ SlideShare : https://www.slideshare.net/juanvladimir13/unit-test-75517343 Google Drive : https://drive.google.com/drive/folders/0BxFy1LPEvFXaTmtvUzMwZWJn MDQ?usp=sharing
- 5. 1. DUnit DUnit is an Xtreme testing framework for Borland Delphi programs. It was originally inspired on the JUnit framework written in Java by Kent Beck and Erich Gamma, but has evolved into a tool that uses much more of the potential of Delphi to be much more useful to Delphi developers Web oficial http://dunit.sourceforge.net/ Docs http://dunit.sourceforge.net/#Documentation Download https://sourceforge.net/projects/dunit/ DUnit
- 6. 2. Instalación Las nuevas versiones de Embarcadero RAD Studio ya viene instalado este frameworks de manera que no es necesario instalarlo.
- 7. Example 1. Estructura del proyecto 2. New project App 3. New project Test 4. Create Project Group 5. Create Test Case 6. Run DUnit 7. Test Suite
- 8. 1. Estructura del proyecto PROYECTO UNIT TEST PROJECT GROUP
- 9. 2. New Project App Crear un nuevo proyecto llamado PExample File -> New -> VLC Forms Application - Delphi Guardar el proyecto PExample File -> Save All Location Folder : example/src/main Delphi Unit File name : UFPrincipal.pas Delphi Projects File name : PExample.dproj
- 10. 3. New Protect Test File -> New -> Other.. -> Unit Test -> Test Project Project Name: PExampleTest Location: examples/src/test DUnit
- 11. 4. Create Project Group File -> New -> Other..-> Other files -> Project Group View -> Project Manager Add Project PExample and PExampleTest Project -> Add Existing (PExample.dproj) Project -> Add Existing (PExampleTest.dproj) File -> Save All Location : example File name : PGExample.groupproj
- 12. 5. Create Test Case Select PExampleTest in Project Manager File -> New -> Other -> Unit Test -> Test Case Select to methods to test ➔ Source file ◆ Unit to project ➔ Available classes and methods: ◆ Seleccionar métodos para generarlos ➔ Finish ➔ File -> Save ◆ Folder : example/src/test/package/models
- 13. 6. Run DUnit Select PExampleTest in Project Manager Run -> Run
- 14. Ya eres todo un experto !!!
- 15. Test Suite 1. Create Unit TestSuite 2. Add function to Test Suite 3. Add Test Case to Test Suite 4. Assert in Test Case DUnit
- 16. 1. Create Unit Test Suite Select PExampleTest in Project Manager File -> New -> Unit File -> Save File name : UTestSuite.pas Folder : example/src/test
- 17. 2. Add function to Test Suite uses TestFramework; implementation function TestSuiteFunction:ITestSuite; var ATestSuite: TTestSuite; begin ATestSuite := TTestSuite.create('Name to Test Suite'); // Add to Test Case Result := ATestSuite; end; initialization RegisterTest('Simple Test', TestSuiteFunction);
- 18. 3. Add Test Case to Test Suite Editamos los TestCase que hemos creado y eliminamos las siguientes líneas initialization // Register any test cases with the test runner RegisterTest(ClassName.Suite); Add Test Case to Test Suite uses TestFramework, UnitNameTestCase; Add to function TestSuite lines // ATestSuite es una instancia TTestSuite en la function TestSuite ATestSuite.AddTest(ClasName.Suite); Add TestSuite to Project Test initialization RegisterTest('Simple Test', TestSuite);
- 19. Vamos a pensar un poco que nos hace bien
- 20. 4. Assert in Test Case CheckTrue(condition); CheckFalse(condition); CheckNonNull(condition); CheckEquals(expected , actual); CheckNull(objeto)
- 23. GRACIAS Espero que hubieras aprendido un poco… Apoya con un like y comparte para que tenga más seguidores y pueda seguir realizando vídeos.