Pour vérifier que le fournisseur fonctionne bien, nous allons ajouter un bouton sur une page de test qui lancera toute une série d'appels des différentes méthodes que nous avons implémentées.
Membership.CreateUser("a", "a", "a@a.com")
Roles.CreateRole("Admin")
Dim allRoles As String() = Roles.GetAllRoles
Roles.AddUserToRole("a", "Admin")
Roles.IsUserInRole("a", "Admin")
Dim userRoles As String() = Roles.GetRolesForUser("a")
Dim users As String() = Roles.FindUsersInRole("Admin", "a%")
users = Roles.GetUsersInRole("Admin")
Roles.RemoveUsersFromRoles(users, userRoles)
Roles.DeleteRole("Admin")
Membership.DeleteUser("a", True)