Fix most deprecations on Julia 0.7

Author: nalimilan

REQUIRE

@@ -1 +1,2 @@
 julia 0.6
+Compat 0.52

src/InternedStrings.jl

@@ -7,17 +7,16 @@ Licensed under MIT License, see LICENSE.md
 """
 module InternedStrings
 
+using Compat
+
 export @i_str, intern
 
 Base.@deprecate_binding(InternedString, String, true)
 
 @static if VERSION < v"0.7.0-DEV"
-    const Nothing = Void
     const ht_keyindex2! = Base.ht_keyindex2
-    add_finalizer(fun::Function, obj) = Base.finalizer(obj, fun)
 else
     using Base: ht_keyindex2!
-    const add_finalizer = Base.finalizer
 end
 
 ########################
@@ -43,7 +42,7 @@ end
         # Not found, so add it,
         # and mark it as a reference we track to delete!
         kk::K = convert(K, key)
-        add_finalizer(wkd.finalizer, kk) # finalizer is set on the strong ref
+        @compat finalizer(wkd.finalizer, kk) # finalizer is set on the strong ref
         @inbounds Base._setindex!(wkd.ht, nothing, WeakRef(kk), -index)
         unlock(wkd.lock)
         return kk # Return the strong ref

test/all_kinds_of_types.jl

@@ -38,6 +38,7 @@ end
     s1 = "ex"
     s2 = "ex"
     ex1 = @inferred intern(String, WeakRefString(unsafe_wrap(Vector{UInt8}, s1)))
+    @test ex1=="ex"
     @test !addr_eq(ex1, s1)
     @test ex1 isa String
     ex2 = @inferred intern(String, WeakRefString(unsafe_wrap(Vector{UInt8}, s2)))

test/corefunctionality.jl

@@ -61,12 +61,13 @@ end
     end
 end
 
+using Compat.GC
 @testset "Garbage Collection 1" begin let
     empty!(InternedStrings.pool)
     @test length(InternedStrings.pool)==0
     ai =  intern("Hello My Friends3")
     ai = [44] #remove the reference
-    gc();
+    GC.gc();
     @test 0<=length(InternedStrings.pool)<=1 #May or may not have been collected yet
 end end
 
@@ -79,25 +80,27 @@ end end
     @test length(InternedStrings.pool)==1
     use(ai,bi)
     ai = [44]
-    gc()
+    GC.gc()
     @test length(InternedStrings.pool)==1 #don't collect when only one reference is gone
     use(bi)
     bi=[32]
-    gc()
+    GC.gc()
     @test 0<=length(InternedStrings.pool)<=1
 end end
 
+
+using Compat.Random
 srand(1)
 @testset "Garbage Collection stress test" begin let
     empty!(InternedStrings.pool)
     oldpoolsize = length(InternedStrings.pool)
     function checkpool(op)
-        gc()
+        GC.gc()
         @test op(length(InternedStrings.pool), oldpoolsize)
         oldpoolsize = length(InternedStrings.pool)
     end
 
-    originals = [randstring(rand(1:1024)) for _ in 1:10^5]
+    originals = [Random.randstring(rand(1:1024)) for _ in 1:10^5]
     n_orginals = length(originals)
 
     interns = intern.(originals);
@@ -111,7 +114,7 @@ srand(1)
     checkpool(==)
 
     for ii in 1:30
-        shuffle!(interns)
+        Random.shuffle!(interns)
         for jj in 1:1000
             pop!(interns)
         end