diff --git a/repository/Grafoscopio/GrafoscopioNodeTest.class.st b/repository/Grafoscopio/GrafoscopioNodeTest.class.st
index daec371..7a01360 100644
--- a/repository/Grafoscopio/GrafoscopioNodeTest.class.st
+++ b/repository/Grafoscopio/GrafoscopioNodeTest.class.st
@@ -33,19 +33,35 @@ GrafoscopioNodeTest >> testDemoteNode [
]
+{ #category : #tests }
+GrafoscopioNodeTest >> testDownloadImagesInto [
+ "comment stating purpose of message"
+
+ |txt txtNode|
+ txt:= ' 
+ 
+ '.
+
+ txtNode := GrafoscopioNode new body: txt.
+ txtNode links: 'http://pharo.org'.
+ txtNode downloadImagesInto: FileLocator temp.
+ self assert: (FileLocator temp / 'web') allChildren size equals: 4.
+]
+
{ #category : #tests }
GrafoscopioNodeTest >> testExtractHtmlImages [
"comment stating purpose of message"
|txt txtNode|
- txt:= ' 
-
- 
+ txt:= ' 
+
'.
txtNode := GrafoscopioNode new body: txt.
txtNode links: 'http://pharo.org/files/'.
- self assert: (txtNode extractHtmlImages) size equals: 2.
+ txtNode extractHtmlImages.
+ txtNode downloadImagesInto: FileLocator temp.
+ self assert: (FileLocator temp / 'web' ) allChildren size equals: 4.
]