Imports System

Imports System.Collections.Generic

​

​

' MODEL

Public Class Usuario

​

    Public Id As Integer

​

    Public Nombre As String

​

    Public FechaDeExpedicionDelCarnetDeConducir As DateTime

End Class

​

Public Class Coche

​

    Public Matricula As String

​

    Public AñosMinimosConCarnetDeConducir As Integer

End Class

​

Public Class Reserva

​

    Public Id As Integer

​

    Public Fecha As DateTime

​

    Public IdUsuario As Integer

​

    Public MatriculaCoche As String

​

    Public Sub New()

    End Sub

​

    Public Sub New(ByVal IdUsuario As Integer, ByVal MatriculaCoche As String)

        Id = New Random().[Next](4, 100)

        Fecha = New DateTime()

        Me.IdUsuario = IdUsuario

        Me.MatriculaCoche = MatriculaCoche

    End Sub

End Class

​

​

​

' TO DO

​

Public Class GestorDeReservas

​

    Public reservas As List(Of Reserva)

​

    Public Sub New()

    End Sub

​

    Public Sub NuevaReserva(ByVal fecha As DateTime, ByVal usuario As Usuario, ByVal coche As Coche)

        ' ComprobarDisponibilidadDelVehiculo

​

        ' ComprobarAñosMinimosDeCarnet

​

        ' CrearReserva

​

    End Sub

End Class

​

​

​

​

Public Class Program

​

' TESTS

    Public Shared Sub Test1(ByVal gestor As GestorDeReservas)

        Console.WriteLine("[TEST 1]")

        gestor.NuevaReserva(

            New DateTime(2019, 8, 23), 

            New Usuario() With {.Id = 4, .FechaDeExpedicionDelCarnetDeConducir = New DateTime(2005, 1, 24)}, 

            New Coche() With {.Matricula = "abcd", .AñosMinimosConCarnetDeConducir = 0})

    End Sub

​

    Public Shared Sub Test2(ByVal gestor As GestorDeReservas)

        Console.WriteLine("[TEST 2]")

        gestor.NuevaReserva(

            New DateTime(2019, 8, 23), 

            New Usuario() With {.Id = 4, .FechaDeExpedicionDelCarnetDeConducir = New DateTime(2018, 1, 24)}, 

            New Coche() With {.Matricula = "abcd", .AñosMinimosConCarnetDeConducir = 3})

    End Sub

​

    Public Shared Sub Test3(ByVal gestor As GestorDeReservas)

        Console.WriteLine("[TEST 3]")

        gestor.NuevaReserva(

            New DateTime(2019, 8, 23), 

            New Usuario() With {.Id = 4, .FechaDeExpedicionDelCarnetDeConducir = New DateTime(2002, 5, 29)}, 

            New Coche() With {.Matricula = "1234", .AñosMinimosConCarnetDeConducir = 0})

    End Sub

​

' SETUP

​

    Public Shared Sub Main()

        Dim gestor = New GestorDeReservas() With {.reservas = New List(Of Reserva)() From {New Reserva() With {.Id = 1, .Fecha = New DateTime(2018, 1, 24), .IdUsuario = 2, .MatriculaCoche = "abcd"}, New Reserva() With {.Id = 2, .Fecha = New DateTime(2019, 8, 23), .IdUsuario = 3, .MatriculaCoche = "1234"}}}

        RunTest(Sub() Test1(gestor))

        RunTest(Sub() Test2(gestor))

        RunTest(Sub() Test3(gestor))

    End Sub

​

    Public Shared Sub RunTest(ByVal test As Action)

        Try

            test()

            Console.WriteLine("Todo ok")

        Catch e As Exception

            Console.WriteLine("Excepcion: " & e.Message)

        Finally

            Console.WriteLine()

        End Try

    End Sub

End Class

​