Class {
	#name : 'InstagramUrlTest',
	#superclass : 'TestCase',
	#category : 'Instagram-Tests',
	#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 |
	i := InstagramUrl newURL: 'instagram.com'.
	self assert: i url asStringOrText equals: 'https://instagram.com/'
]

{ #category : 'tests' }
InstagramUrlTest >> testNotInstagramUrl1 [
	| i |
	i := InstagramUrl newURL: 'nstgrm.com'.
	self assert: i url asStringOrText equals: 'https://instagram.com/'
]

{ #category : 'tests' }
InstagramUrlTest >> testNotInstagramUrl2 [
	| i |
	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'.
]