Find and delete unused VCR cassettes

vcr_unused_cassette_reporter.rb

#
# Find and delete unused cassettes
# Save in spec/support/
#
# Modified from examples found at https://github.com/vcr/vcr/issues/283
#
module UsedCassetteReporter
  USED_CASSETTES = Set.new

  def insert_cassette(name, options = {})
    USED_CASSETTES << VCR::Cassette.new(name, options).file
    super
  end
end

RSpec.configure do |config|
  config.after(:suite) do
    all_cassettes = Dir[File.join(VCR::Cassette::Persisters::FileSystem.storage_location, '**', '*.yml')].map do |d|
      File.expand_path(d)
    end

    unused_cassettes = all_cassettes - UsedCassetteReporter::USED_CASSETTES.to_a

    unless unused_cassettes.empty?
      puts "\nUnused cassettes to delete:"
      puts unused_cassettes
      unused_cassettes.each { |v| File.delete(v) }
    end
  end
end

This seems like it delete cassettes that are actually being used...