From 8e8f619fc9a79da5628a4d52b20571cab6ba0490 Mon Sep 17 00:00:00 2001
From: wiehe <28457227+wiehe@users.noreply.github.com>
Date: Wed, 6 Feb 2019 16:49:52 +0100
Subject: [PATCH] Don't delete pvr entries in test mode

---
 get_iplayer | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/get_iplayer b/get_iplayer
index c5f57012..247e63b1 100755
--- a/get_iplayer
+++ b/get_iplayer
@@ -8498,8 +8498,8 @@ sub run {
 			$failcount = main::download_matches( $hist, main::find_matches( $hist, @search_args ) );
 		}
 		# If this is a one-off queue entry then delete the PVR entry upon successful recording(s)
-		if ( $name =~ /^ONCE_/ ) {
-			$pvr->del( $name ) if not $failcount;
+		if ( $name =~ /^ONCE_/ && ! $failcount && ! $opt->{test} ) {
+			$pvr->del( $name );
 		}
 		if ( $failcount ) {
 			main::logger "WARNING: PVR Run: '$name': $failcount download failure(s)\n";