From ac3f3757d80e6f29712a449ace229c201c884243 Mon Sep 17 00:00:00 2001
From: ruidajo <diegoruidajo@gmail.com>
Date: Sun, 26 May 2024 17:43:22 -0500
Subject: [PATCH] Adding tests for url types.

---
 Instagram-Tests/InstagramUrlTest.class.st | 44 ++++++++++++++++++++++-
 1 file changed, 43 insertions(+), 1 deletion(-)

diff --git a/Instagram-Tests/InstagramUrlTest.class.st b/Instagram-Tests/InstagramUrlTest.class.st
index b1e1190..78de80e 100644
--- a/Instagram-Tests/InstagramUrlTest.class.st
+++ b/Instagram-Tests/InstagramUrlTest.class.st
@@ -5,6 +5,41 @@ Class {
 	#package : 'Instagram-Tests'
 }
 
+{ #category : 'tests' }
+InstagramUrlTest >> testCorrectType [
+	| i |
+	i := InstagramUrl newURL: 'instagram.com/ruidajo_'.
+	self assert: i type equals: 'user'.
+]
+
+{ #category : 'tests' }
+InstagramUrlTest >> testCorrectType2 [
+	| i |
+	i := InstagramUrl newURL: 'instagram.com/ruidajo_/'.
+	self assert: i type equals: 'user'.
+]
+
+{ #category : 'tests' }
+InstagramUrlTest >> testCorrectType3 [
+	| i |
+	i := InstagramUrl newURL: 'instagram.com/'.
+	self assert: i type equals: 'root'.
+]
+
+{ #category : 'tests' }
+InstagramUrlTest >> testCorrectType4 [
+	| i |
+	i := InstagramUrl newURL: 'instagram.com'.
+	self assert: i type equals: 'root'.
+]
+
+{ #category : 'tests' }
+InstagramUrlTest >> testIncorrectTypeSetByUrl [
+	| i |
+	i := InstagramUrl new type: 'as'.
+	self assert: i type equals: 'root'.
+]
+
 { #category : 'tests' }
 InstagramUrlTest >> testInstagramUrlInstanceCreation [
 	| i |
@@ -16,7 +51,7 @@ InstagramUrlTest >> testInstagramUrlInstanceCreation [
 InstagramUrlTest >> testNotInstagramUrl1 [
 	| i |
 	i := InstagramUrl newURL: 'nstgrm.com'.
-	self assert: i url asStringOrText equals: 'https://www.instagram.com/'
+	self assert: i url asStringOrText equals: 'https://instagram.com/'
 ]
 
 { #category : 'tests' }
@@ -25,3 +60,10 @@ InstagramUrlTest >> testNotInstagramUrl2 [
 	i := InstagramUrl newURL: 'nstgrm.com'.
 	self assert: i class equals: InstagramUrl new class.
 ]
+
+{ #category : 'tests' }
+InstagramUrlTest >> testUndefindeType [
+	| i |
+	i := InstagramUrl newURL: 'instagram.com/ruidajo_/a'.
+	self assert: i type equals: 'UndefinedType'.
+]