FEAT: updated Spotify module to version 0.2.1 (test file moved to the test folder)

Author: Oldes

src/modules/spotify.reb

@@ -1,7 +1,7 @@
 Rebol [
 	Title:   "Spotify"
 	Purpose: "Spotify Web API access"
-	Version: 0.2.0
+	Version: 0.2.1
 	Author:  @Oldes
 	Date:    20-Jul-2023
 	File:    %spotify.reb
@@ -267,13 +267,16 @@ refresh: function[
 		])
 	]
 	data: attempt [load-json result/3]
-	either result/1 >= 400 [
+	if result/1 >= 400 [
 		sys/log/error 'SPOTIFY "Failed to refresh access token!"
 		if data/error_description [	sys/log/error 'SPOTIFY data/error_description ]
-		none
-	][
-		ctx/token: data
+		return none
 	]
+	try/with [
+		data/expires_in: now + (to time! data/expires_in)
+		ctx/token: data
+		store-config ctx
+	] :print
 ]
 
 request: func [

src/modules/spotify-test.r3 src/tests/test-spotify.r3

@@ -1,6 +1,6 @@
 Rebol [
 	Title:  "Test Spotify module"
-	Version: 0.2.0
+	Version: 0.2.1
 	Author:  @Oldes
 	Date:    20-Jul-2023
 	File:    %test-spotify.r3
@@ -11,17 +11,20 @@ system/options/quiet: false   ;; allow Spotify traces
 system/options/log/spotify: 4 ;; verbose
 system/options/log/http: 0    ;; no HTTP traces
 
-;; make sure that we load a fresh extension
-try [system/modules/spotify: none]
-spotify: import %spotify.reb
+spotify: import spotify
 
 test-all?: false ;; I don't want CI tests to stop my real playback
 
+errors: 0 ;; error counter (process return value)
+
 do-test: func[title code][
 	print-horizontal-line
 	print as-yellow title
 	probe code
-	try/with code :print
+	try/with code [
+		print system/state/last-error
+		++ errors
+	]
 ]
 
 
@@ -182,3 +185,5 @@ if test-all? [
 		probe spotify/put %me/player/seek?position_ms=0
 	]
 ]
+
+quit/return errors